Steuerzeichen

[DeddyH]

Und eine Kombination unserer beiden Codes dürfte schneller sein. Noch flotter ginge es dann wohl nur noch über Pointer.

Delphi-Quellcode:

function TMain.CleanText(const S: String): String;
var
  i, j: integer;
begin
  SetLength(Result, Length(S));
  j := 0;
  for i := 1 to Length(S) do
    if (Ord(S[i]) > 31) or (S[i] in [#10, #13]) then
      begin
        inc(j);
        Result[j] := S[i];
      end;
  SetLength(Result, j);
  Result:=Trim(StringReplace(Result,'"','´´',[rfReplaceAll]));
end;