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.
