Ich hab Deinen Vorschlag leicht abgewandelt, aber so funktioniert es tatsächlich ...
Delphi-Quellcode:
function TMain.CleanText(S: String): String;
var i:Integer;
begin
Result := '';
if Length(S)>0
then for i := 1 to Length(S)
do if (Ord(S[i]) > 31) or (S[i] in [#10, #13])
then Result := Result+S[i];
Result:=Trim(StringReplace(Result,'"','´´',[rfReplaceAll]));
end;
Thx !