Как удалить символ переноса строки?

[bilibian]

Привет.

Написал функцию замены спецсимволов в строке на пробелы.

Как заменить символ переноса строки на пустоту?

function TForm3.ReplaceContent(S: string): string;
  var
    I : Integer;
begin
  For I := 1 To Length(S) Do
    Case S[i] Of
      #13#10 : S[i] := '';
    End;
  Result := S;
end;

Ошибка.

[Аватар]

StringReplace

[bilibian]

Попробовал, такой способ ошибки не вызывает, но ничего по сути не меняется.

S:=StringReplace(S, #13#10, '',[rfReplaceAll, rfIgnoreCase]);

Вот сам текст:

Привет...
всем

[lomastr_]

#13#10 тут сколько символов?

[bilibian]

Сообщение от lomastr_

#13#10 тут сколько символов?

Ну, конец строки и перенос, вроде бы как

[bilibian]

Работает.. спс

S:=StringReplace(S, #10, '',[rfReplaceAll, rfIgnoreCase]);

[northener]

Сообщение от bilibian

Работает.. спс

S:=StringReplace(S, #10, '',[rfReplaceAll, rfIgnoreCase]);

Так сразу бы и сказал, что строки берешь у юниксоидов.