Datei aus url parsen! [gelöst]

[Luckie]

Hm, wen ich in die Sourcen von der SysUtils reinkucke (sei mal dahingerstellt wie ich das mache. ), dann sehe ich das:

Delphi-Quellcode:

const
  PathDelim  = {$IFDEF MSWINDOWS} '\'; {$ELSE} '/'; {$ENDIF}
  DriveDelim = {$IFDEF MSWINDOWS} ':'; {$ELSE} '';  {$ENDIF}
  PathSep    = {$IFDEF MSWINDOWS} ';'; {$ELSE} ':'; {$ENDIF}

Delphi-Quellcode:

function ExtractFileName(const FileName: string): string;
var
  I: Integer;
begin
  I := LastDelimiter(PathDelim + DriveDelim, FileName);
  Result := Copy(FileName, I + 1, MaxInt);
end;

Wenn es jetzt noch eine Compiler-Konstante für Linux gibt, könnte man sowas machen:

Delphi-Quellcode:

{DEFINE LINUX}
ExtractFilename(...
{DERINE MSWINDOWS}

Ob das jetzt besser, schöner oder sonst was ist, sei mal dahingestellt.