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

[andyliumoujun]

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

[梅青松]

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

[thunderniao]

把回车符（#13）滤掉

[firstshine]

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

[dabaicai]

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

[longtusoft]

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

[wangyansurmount]

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

[welllove88]

呵呵！！方法N多！！

[budded]

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