Home » Tipps & Tricks » Dateien/Verzeichnisse » Dateieigenschaften » Dateipfad zur Anzeige kürzen

Dateipfad zur Anzeige kürzen

Will man einen Dateipfad anzeigen, der zu lang ist, kann man ihn durch die Funktion MinimizeName aus der Unit FileCtrl kürzen lassen. Aus ‚c:\dokumente und einstellungen\benutzer\eigene dateien\test\blabla\tipp.txt‘ könnte so z.B. ‚c:\…\test\blabla\tipp.txt‘ werden.
Die Funktion erwartet beim Aufruf den kompletten Dateipfad, eine grafische Oberfläche (Canvas) sowie die maximal erlaubte Breite des Ergebnisses (entspricht der Breitenangabe, die mit der Funktion TextWidth von TCanvas ermittelt werden kann).

uses FileCtrl;

var LangerPfad: string;
begin
  LangerPfad:='c:\dokumente und einstellungen\benutzer\eigene dateien\test\blabla\tipp.txt';
  label1.Caption:=MinimizeName(LangerPfad, label1.Canvas, 150);