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