Abbreviated/shortened file paths (c:\program files\borl...\bde.exe)

You may use GetShortPath function. Path and Count are input parameters. Path - is a long path to the file (for example, 'c:\Program Files\AAA\BBB\CCC\DDD\fff.txt'). GetShortPath function returns a short path (for example, 'c:\Program Files\...\DDD\fff.txt') and Count parameter is a limit of this short path. Length of short path will be less, than "Count" symbols


function GetShortPath(Path: string; Count: Integer): string;

  procedure Slashes(var Str: string; var Num: Integer);
  var
    Position, Index: Integer;
  begin
    Index:=0;
    repeat
      Position:=Pos('\', Str);
      Delete(Str,1,Position);
      if Position<&gt0 then Inc(Index);
      if (Index=Num)and(Num<&gt0) then break;
    until Position=0;
    Num:=Index;
  end;

var
  Num, NewNum, P: Integer;
  Str: string;
begin
  Str:=Path;
  Num:=0;
  Slashes(Path, Num);
  while (Length(Str)&gtCount)and(Num&gt2) do
  begin
    NewNum:=Num div 2;
    Path:=Str;
    Slashes(Path, NewNum);
    P:=Pos(Path, Str);
    Delete(Str,P, Length(Path));
    NewNum:=2;
    Slashes(Path, NewNum);
    Str:=Str+'...\'+Path;
    Dec(Num);
  end;
  Result:=Str;
end;


From Greatis.com

John

Thanks, but the code is badly flawed.

The problem with the code is that it inserts \...\ when it needs not.  For instance,...

GetShortPath('c:\windows\win.ini',64);

...will return the crazy:

c:\windows\...\...\...\...\...\win.ini

Then at other times it totally inserts nothing.  E.g.

GetShortPath('D:\ZIP Code Access\2000Version\MO Test\disk9.mdb',32)

Even though 'D:\ZIP Code Access\2000Version\MO Test\disk9.mdb' is 49 characters, the function inserts no \...\ at all.