Afkortning af en vist sti

function KortPadIn(Pad: string; maxL: Integer): string;
const
  start            = 6;
  MinFileL          = 12;
var
  TempPad          : string;
  Lfile            : Integer;
  i                : Integer;
begin
  if (length(Pad) > maxL) and (maxL > (start + MinFileL)) then
  begin
    Lfile := Length(Pad);
    for i := Length(Pad) downto 0 do
      if Pad[i] = '\' then
      begin
        Lfile := Length(Pad) - i;
        Break;
      end;

    if (Lfile + start) >= maxL then
      TempPad := copy(Pad, length(Pad) - Lfile, 255)
    else
      TempPad := copy(Pad, length(Pad) - maxL + start, 255);

    if (length(TempPad) - Lfile) > 1 then
      for i := 1 to (length(TempPad) - Lfile) do
        if TempPad[i] = '\' then
        begin
          {copy everything after the first '\' from the left}
          TempPad := copy(TempPad, i, 255);
          Break;
        end;
    TempPad := copy(Pad, 1, 3) + '...' + TempPad;
    KortPadIn := TempPad;
  end else
    KortPadIn := Pad;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(KortPadIn(application.ExeName, 30));
end;

Tak for det dkn... Det virker... Men hvis det nu kun er en folder man klikker på virker det ikke... Det er først når det det er en fil man klikker på... Kan det også laves så det virker såvel på filer som på folder???

een folder? det skal jeg lige høre lidt mere om hvad du mener med...

Er det ikke blot nemmere at bruge funktionen MinimizeName, som Borland har lavet ?

Jens B

fx :

Label13.Caption := ' : ' + MinimizeName(FileName, Canvas, 250);

Jens B

jo jens det kunne da godt ske, kendte heller ikke den function.
Tror bare det er nemmere at forholde sig til lengten af chars istedet for hvor mange pixels der går på en char.

Ja jo .. Men typisk har man jo kun begrænset plads ....

Jens B

Ja det problem løser begge functions jo :) bare på hver sin måde...

Men fremover vil jeg da nok vælge MinimizeName() og så i paramenteren maxlen må man jo bare bruge Canvas.TextWidth('Sin text') så har man jo samme resultat som den anden function.

dkn

Tussind tak for hjælpen Jens B og undskyld jeg først svare nu... men jeg har været lidt ophængt her i pinsen...

Den kan lige det jeg skulle have den til...
Du må lige sige til hvis du vil have point for den ;)

Også tak til dkn for hans del af hjælpen ;)

//'bramsing'

Nå nej pyt med dem .. Jeg tror jeg har :-)

ok Jens B ;)