去除 字符串中 回车、换行

 

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str := Memo1.Text;
  str := StringReplace(str, sLineBreak, '', [rfReplaceAll]);
  Memo1.Text := str;
end;

sLineBreak 是常量, = #13#10
rfReplaceAll，rfIgnoreCase 分别表示全部替换、只替换一次

#13#10 分别是delphi 中的回车和换行