字符串的问题(100分)

I

ideafrog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #1

如何去掉字符串中的回车健（该字符串可能有英文或中文）

 

L

LHA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #2

1 查找 回车
2 去除回车
3 如果还有回车 跳到1
4 完成

可以用ASCII码来判断

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #3

var
str:string;

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
i := Pos(#13#10, str);
while (i <> 0) do
begin
str:=copy(str,1,i-1)+copy(str,i+2,length(str)-i);
i := Pos(#13#10, str);
end;
showmessage(str);
end;

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #4

StringReplace(AText, #13#10, '', [rfReplaceAll]);

 

I

ideafrog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #5

多人接受答案了。