怎样删除一个字符串中的回车符？？（HELP！！！！！！！）

[hhua2001]

我要处理的字符串是从数据库中提取的，但是用户在输入中很有可能输入了回车，有个这个回车符很影响我的处理，请问怎样才能把回车符从这个字符串中删除？？各位高手赶快救命！！

[funboy88]

你用替换函数，可以实现
回车是chr(13) & chr(10)
把它替换是空字符串就可以啦

[funboy88]

在vb中是replace(str,chr(13) & chr(10),"")
就可以啦

[westfly]

Result := StringReplace(StringReplace(S, #13, '', [rfReplaceAll]), #10, '', [rfReplaceAll]);

[chao_jian]

function ClearCR(Str: String): String;
var
i: Integer;
p: PChar;
begin
Result:= '';
p:= Point(Str);
while p^<>#0 do
begin
if p^<>#13 then Result:=Result+p^;
end;
end;

[chao_jian]

function ClearCR(Str: String): String;
var
i: Integer;
p: PChar;
begin
Result:= '';
p:= Point(Str);
while p^<>#0 do
begin
if p^<>#13 then Result:=Result+p^;
Inc(p); //
end;
end;