5,388
社区成员
发帖
与我相关
我的任务
分享字符串显示文件名的问题
在窗体上放一个Label1控件,用来显示正在操作的文件名,但是文件名太长的话,会超出窗体的宽度,能不能自动的将前面的文件变成下列格式.
C:\My Documents\新建文件夹\site=cntom&channel=news&layer=2&subtree=2&location=R06&target=_blank[1].list
显示成
C:\..\新建文件夹\site=cntom&channel=news&layer=2&subtree=2&location=R06&target=_blank[1].list
C:\My Documents\新建文件夹\site=cntom&channel=news&layer=2&subtree=2&location=R06&target=_blank[1].list
显示成
C:\..\新建文件夹\site=cntom&channel=news&layer=2&subtree=2&location=R06&target=_blank[1].list
...全文
请发表友善的回复…
发表回复
hiflower 2003-10-15
- 打赏
- 举报
同上
zswangII 2003-10-15
- 打赏
- 举报
//unit FileCtrl platform;
//function MinimizeName(const Filename: TFileName; Canvas: TCanvas;
// MaxLen: Integer): TFileName;
//参考如下代码～～
uses FileCtrl;
//...
begin
Label1.Caption := MinimizeName('D:\Program Files\Borland\Delphi8', Label1.Canvas, Label1.Width);
end;
//function MinimizeName(const Filename: TFileName; Canvas: TCanvas;
// MaxLen: Integer): TFileName;
//参考如下代码～～
uses FileCtrl;
//...
begin
Label1.Caption := MinimizeName('D:\Program Files\Borland\Delphi8', Label1.Canvas, Label1.Width);
end;
