简单问题:请问如何去除大段文本中的回车符?

[zx197093]

我现在想去除大段文本中的回车符,但不知道回车符的代码,请大家帮助.谢谢!

[wkan]

#13#10

[Firing_Sky]

查查Ascii码手册吗,回车=chr(13)

[茂奇软件]

0x0d 0x0a
or
0x0a 0x0d

it depend on the operating system.

[7030]

请看下面的函数,将回车符换成空格
function deleteenter(str:string):string;
var k:integer;
s1,s2:string;
begin
s2:=#$D#$A;
s1:=str;
k:=pos(s2,str);
if k=0 then result:=str
else
begin
s1:=str;
while k<>0 do
begin
s1:=copy(s1,1,k-1)+' '+copy(s1,k+2,length(str)-k);
k:=pos(s2,s1);
end;
end;
result:=s1;
end;