Das 'IF AND IF THEN'-Ding

[marabu]

Abgesehen vom syntaktischen sehe ich noch ein funktionelles Problem. Wenn auf einen absoluten Pfad inklusive Laufwerk geprüft werden soll, dann besser so:

Delphi-Quellcode:

uses 
  SysUtils // ExtractFileDrive(), PathDelim
;

function CheckAbsoluteDrivePath(fn: TFileName): Boolean;
var
  drive: String;
begin
  drive := ExtractFileDrive(fn);
  Delete(fn, 1, Length(drive));
  Result := (drive <> '') and (Copy(fn, 1, 1) = PathDelim);
end;

Grüße vom marabu