Pfadnamen verkürzen

[RWarnecke]

Zitat von Tommy1988:

Delphi-Quellcode:

procedure TForm1.Label5Click(Sender: TObject);
var
Path : String;
begin
  Path := Label5.Caption;
  DotPath.ShortPath(Path, 2, 2);
end;

So müsste Dein Code aussehen :

Delphi-Quellcode:

procedure TForm1.Label5Click(Sender: TObject);
var
Path : String;
begin
  Path := Label5.Caption;
  Label5.Caption := ShortPath(Path, 2, 2);
end;

Du hast die Zuweisung zum Label oder einem anderen Label vergessen.

P.S. Du könntest sogar die Variable Path weglassen und direkt über Label5.Caption gehen.