Dateipfad zur Anzeige kürzen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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);
var LangerPfad: string;
begin
LangerPfad:='c:\dokumente und einstellungen\benutzer\eigene dateien\test\blabla\tipp.txt';
label1.Caption:=MinimizeName(LangerPfad, label1.Canvas, 150);