Steuerzeichen

[DeddyH]

Es ist zwar kein großer Unterschied zu Deiner 1. Version, aber versuch doch mal (ungetestet):

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);
end;

[edit] Ich sehe gerade: Delphi 2010. AFAIK kann Paradox kein Unicode, könnte es damit zusammenhängen? Hast Du es auch einmal mit AnsiStrings probiert? [/edit]