Hier ein kleiner Tipp wie man einen Dateipfad in Einzelteile zerlegen kann, d.h. Laufwerk, alle Ordner und Dateiname. Dafür gibt es zwar Einzelfunktionen, aber es gibt auch eine Funktion die alles auf ein mal liefert: ProcessPath.
Die Funktion har vier Parameter:
- komplette Pfadangabe
- Char Variable für Laufwerkrückgabe
- String Variable für Ordnerrückgabe
- String Variable für Dateinamenrückgabe
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20:
| uses FileCtrl;
procedure TForm1.Button1Click(Sender: TObject); var DirPart, FilePart: String; DrivePart: Char; const Path = 'C:\WIN98SE\SYSTEM\SYSEDIT.EXE'; begin if not FileExists(Path) then Exit;
ProcessPath(Path, DrivePart, DirPart, FilePart);
ShowMessage( 'Laufwerk: ' + DrivePart + ^j + 'Ordner: ' + DirPart + ^j + 'Dateiname: ' + FilePart ); end; |