Pfadnamen verkürzen

[Tietsch]

Hi Leute,

jeder kennt doch diese Anzeigen, in denen ein Dateiname eben nicht mehr in voller Länge dargestellt wird, sondern nur noch die 'wichtigen' Teile.
Also etwa:
'C:\Dokumente und Unterlagen\...\Zeugs\text.txt'.

Ich weiß ich hab das schonmal wo gelesen, wie das geht ('findesch wieder, brauchsch net speichern...'). 8)
Jetzt such ich schon den ganzen Tag, hat hier vielleicht jemand ne Idee?

Dank euch schonmal

Grüße Tietsch

[Luckie]

Ichhabe da mal eien Unit geschrieben, die das amcht. ich hänge sie mal an.

Aber in der Unit SysUtils müßte auch eine Funktion drin sein. Ich finde sie nur nicht.

[Tietsch]

Cool,
das war das, was ich gesucht habe. :D
Vielen Dank.

Tietsch

[roderich]

oder verwende MinimizeName

Rod

[Tommy1988]

ich verstehe nicht wie man das verwendet

ich habe das in die uses aufgenommen

Delphi-Quellcode:

uses DotPath;

so.. dann habe ich ein LABEL..

Delphi-Quellcode:

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

dieses label beinhaltet den Pfadnamen .. ziemlich lang,. wird aber nich[delphi]gekürzt wenn ich druff klicke ?

[RWarnecke]

Zitat:

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.