Steuerzeichen (Zeilenumbrüche) aus einem String entfernen?

[Duffy]

Hallo simlei

so könnte es gehen ...

Delphi-Quellcode:

function DelCRLF(const S: string): string;
var
  I: Integer;
begin
  Result := S;
  for I := Length(Result) downto 1 do
  begin
    if (Result[I] = #13) or (Result[I] = #10) then
    begin
      Delete(Result, I, 1);
    end;
  end;
end;

bye
Claus