Pfad Formatierung gesucht

[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