Einzelnen Beitrag anzeigen

dopeline

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

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

  Alt 25. Jul 2004, 22:26
Oh...

Jetzt, wo du's sagst...

Nach ein bischen rumprobieren habe ich eine gute kombination gefunden:
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;
Ich danke euch für die hilfe!!!



Gruß, dopeline
  Mit Zitat antworten Zitat