Prüfen ob relativer oder absoluter Pfad

[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;