怎么在memo中删除掉回车符号呢。

[andyLe]

我要把memo中的内容（好几千字节哦<4000）保存到一个varchar2的字段中，但是memo是lines型的，里面有很多的回车以及换行符，弄得它经常无法保存。我现在要把他们删除掉，怎么办·？？

[mastersky]

搞一个循环,回车换行符是#13#10或者#10#13,当这两个字符连在一起时,就替换为#32.

[PoolD]

用
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

function RemoveCR(Source: string): string;
var
Temp: string;
begin
Temp := StringReplace(Source, #13, '', rfReplaceAll or rfIgnoreCase);
Temp := StringReplace(Temp, #10, '', rfReplaceAll or rfIgnoreCase);
end;

[lizhenjia]

gz

[iBear]

memo的lines是一个TStrings，它有个属性是text，就是把储存的字符串数组当做一个大的单个字符串

[r3]

把Memo中的内容一行行的加成一个字串。

[andyLe]

首先我得告诉大家，在DELPHI的 SQL EXPLORE 中无法保存有回车符的语句，但是在纯SQL语句中可以哦。原来，我忽略了字符串中的单引号。我把它替换了就OK了。不过，得谢谢大家。
另外，在MEMO.TEXT中无法查找回车符号！
所以我以为 iBear(大熊) ，r3(去留无意)的方法可行，不过我等会试验一下就可以知道了。
还有，我还不晓得怎么给分给我想给的人呢？？