...einen Dateipfad in Einzelteile zerlegen.

Popov · Verfasst: Fr 30.01.04 22:19

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

markieren

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(                        // Variableninhalte:
    'Laufwerk: ' + DrivePart + ^j +   // Laufwerk: 'C'
    'Ordner: ' + DirPart + ^j +       // Ordner: '\WINDOWS\SYSTEM'
    'Dateiname: ' + FilePart          // Dateiname: SYSEDIT.EXE
    );
end;

_________________
Popov

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme