Pfad Formatierung gesucht

[Insider2004]

Hallo,

ich suche eine Funktion, die folg. macht:

Ich habe z.B. einen Pfad:

C:\123\456\789\000\test.txt

Wenn dieser zu lang wird, soll er so angezeigt werden:

C:\123\...\000\test.txt

Weiss jemand, wie das geht? Gibt es da eine Systemfunktion?

[Lannes]

Hallo,

schau Dir mal aus der Unit filectrl die Funktion MininimizeName(...) an.

[Stormy]

Oder versuch mal das hier was ich eben schnell geschrieben habe:

Delphi-Quellcode:

function ShortPath(Path: String; Max: Integer):String;
var
  sLeft, sRight: String;
begin
  if (Length(Path) > Max) and (Max > 10) then
  begin
    while Length(Path) > Max do
    begin
      sLeft:= Copy(Path, 1, Pos('\', Path));
      sRight := Copy(Path, PosEx('\', Path, Pos('\', Path)+1)+1, Length(Path));
      Path := sLeft+sRight;
    end;
    Result := sLeft+'...\'+sRight;
  end else Result := Path;
end;

Gruß
Stormy

[Insider2004]

Danke für die Lösungen!