Delphi String (Dateipfad) verkürzt darstellen (mit ...)

Thema durchsuchen

Ansicht

Themen-Optionen

String (Dateipfad) verkürzt darstellen (mit ...)

Ein Thema von dopeline · begonnen am 25. Jul 2004 · letzter Beitrag vom 25. Jul 2004

Vorheriger Beitrag

Nächster Beitrag

dopeline

Registriert seit: 7. Mär 2003
Ort: Berlin
304 Beiträge

Delphi 7 Enterprise

Re: String (Dateipfad) verkürzt darstellen (mit ...)

25. Jul 2004, 22:26

Oh...

Jetzt, wo du's sagst...

Nach ein bischen rumprobieren habe ich eine gute kombination gefunden:

markieren

Delphi-Quellcode:

			procedure TForm5.Label2Click(Sender: TObject);

var max,lang,backs:integer;

    pathtemp:string;

begin

 if SelectDirectory('Ordner wählen', '', CoverPfad) then  //Ein OrdnerAuswahlFenster öffnet sich

  begin

   Label2.Caption:=ShortPath(CoverPfad,1,CountBackSlashes(CoverPfad)-2); //weist dem Label2 den Verkürzten Pfad zu

  end;

end;