Korrekten Dateinamen auslesen

[Martin K]

Danke
Ihr hat euch ja richtig viel Mühe gegeben, war doch nicht nötig gewesen

Schade, dass es sowas nicht schon fertig gibt, na egal...

Hab jetzt den QT von Hawkeye219 noch etwas ergänzt:

Delphi-Quellcode:

function StrToPath(const s: String): String;
var SL: TStringList;
begin
  if (s<>'') and (s[1]='"') then
  begin
    SL := TStringList.Create;
    try
      SL.DelimitedText := s; 
      Result := SL[0];
    finally
      SL.Free; 
    end;
  end
  else
    Result := s;
  Result := StringReplace(Result, '\\', '\', [rfReplaceAll]);
end;

@himitsu und marabu:
Hab jetzt von euch nix drin ,
gibt es evtl. Vorteile in euren Codes gegenüber meinem?

Edit:
Code verändert, dann meckert auch der Compiler nicht mehr.
Funzt übrigens 1A