Prüfen ob relativer oder absoluter Pfad

[Salomon]

Moin Moin,

ich müsste bei einer Pfadangabe prüfen ob es sich um einen relativen oder einen absoluten Pfad handelt. Gibt es da schon eine Funktion in Delphi oder muss ich mir die selber schreiben?

Wenn es ide nicht gibt wie prüfe ich am besten ob der Pfad relativ ist? Ich könnte prüfen ob an der dritten Stellen ein '\' steht. Es gibt aber auch relative Pfade bei denen das so sein kann...

Thanx
Salomon

[Chewie]

Unter Windows reicht einfach zu prüfen, ob vorne ein Laufwerksbuchstabe und ein Doppelpunkt steht.

[Salomon]

Jepp hast recht, ein Doppelpunkt kommt nicht in relativen Pfaden vor. Dann nehme ich den als Unterscheidungskriterium.

[Salomon]

Delphi-Quellcode:

Function IsRelativPath (path : String) : boolean;
begin
  if copy (path,2,1) = ':' then
   result := false
  else
   result := true;
end;

[alcaeus]

Da kann ich mit einem Vierzeiler dagegenhalten:

Delphi-Quellcode:

function IsRelativePath(Path: String): Boolean;
begin
  Result := (Path[2] <> ':') and (Copy(Path, 1, 2) <> '\\');
end;

Die Funktion kommt auch mit Verzeichnissen wie

Code:

\\PC-Name\Freigabe

klar, denn das waere auch ein absoluter Pfad.

Greetz
alcaeus

[Gruber_Hans_12345]

Zitat von alcaeus:

Da kann ich mit einem Vierzeiler dagegenhalten:

Delphi-Quellcode:

function IsRelativePath(Path: String): Boolean;
begin
  Result := (Path[2] <> ':') and (Copy(Path, 1, 2) <> '\\');
end;

Die Funktion kommt auch mit Verzeichnissen wie

Code:

\\PC-Name\Freigabe

klar, denn das waere auch ein absoluter Pfad.

Greetz
alcaeus

... und bei einem Path von nur einem Zeihen dann eine AV

Delphi-Quellcode:

function IsRelativePath(Path: String): Boolean;
begin
  Result := (Copy(Path, 2, 1) <> ':') and (Copy(Path, 1, 2) <> '\\');
end;

[Salomon]

Klar geht es kürzer und schöner, aber für mich musste es schnell gehen

Habt ihr evtl. kurz den Befehl zum umbennen von Verzeichnissen griffbereit? Ich find den gerade nicht und es lohnt kaum dafür einen neuen Thread aufzumachen...

[Salomon]

Habs doch noch gefunden, geht auch mit der "RenameFile" funktion...

[Sprint]

Zitat von Salomon:

ich müsste bei einer Pfadangabe prüfen ob es sich um einen relativen oder einen absoluten Pfad handelt. Gibt es da schon eine Funktion in Delphi oder muss ich mir die selber schreiben?

z.B. die API Funktion PathIsRelative

function PathIsRelative(lpszPath: PChar): BOOL; stdcall; external 'shlwapi.dll' name 'PathIsRelativeA';