Korrekten Dateinamen auslesen

[himitsu]

Delphi-Quellcode:

if (s<>'') and (s[1]='"') then
begin
  SL.DelimitedText := s; 
  Result := SL[0];
end
else
  Result := s;

Zitat von Martin K:

gibt es evtl. Vorteile in euren Codes gegenüber meinem?

Ja ... der Dateiname muß nicht unbedingt zwischen "" stehen, wenn ein Parameter angehängt wurde,
dieses ist "nur" notwendig, wenn Leerzeichen im Dateinamen sind.

Bei dem Code bleibt der Parameter angehängt, wenn der Dateiname nicht in "" eingeschlossen ist.