怎么样去掉文本内容中的回车换行符？

Question

我在一个Memo组件中输入文本内容，
我输入了多行，然后发送内容，
可是我在发送前想进行一些处理，就是要去掉内容中的回车换行符，把几行变成一行，这怎么办呢？

Answer 1

s := StringReplace(memo1.Lines.Text, Chr(13) + Chr(10), '',[rfReplaceAll]);

Answer 2

var
  s:string;
begin
  s:=StringReplace(memo1.text,#13,'',[rfReplaceAll]);
  s:=StringReplace(memo1.Text,#10,'',[rfReplaceAll]);
  memo1.text:=s;
end;

Answer 3

var
  s:string;
begin
  s:=StringReplace(memo1.text,#13,'',[rfReplaceAll]);
  s:=StringReplace(s,#10,'',[rfReplaceAll]);
  memo1.text:=s;
end;

Answer 4

根本用不着STRINGREPLACE函数,直接:
var
  s : String ;
begin
  s := Memo1.text ;
end;

Answer 5

直接将Memo1.text付给某个变量即可，例如：
 var
   StrS:string;
begin
  StrS := memo1.text; //StrS的值就是去掉那些东西的
end;

Answer 6

s := StringReplace(memo1.Lines.Text, #13#10,'',[rfReplaceAll]);