« ☆Paradoxに代わるもの | トップページ | ☆ListViewで選択行を削除する。 »

☆パスの一部を省略してファイル名を表示する。

MinimizeName関数を使います。

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
const
  FileName = 'C:\Documents and Settings\hiderin\デスクトップ\delphi-fan.txt';
begin
  Edit1.Text := MinimizeName(FileName, Canvas, 200);
end;

こんな風に加工されます。
C:\Documents and Settings\hiderin\デスクトップ\delphi-fan.txt
  ↓
C:\...\hiderin\デスクトップ\delphi-fan.txt

メニューで「最近使ったファイルを表示する」等の用途に使えそうですね。

|

« ☆Paradoxに代わるもの | トップページ | ☆ListViewで選択行を削除する。 »