这段代码到底什么地方有错?急!!!!!!!(50分)

J

J7T

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #1

var
i:integer;
str1:string;
str2:string;
str3:string;
begin
str1:=Edit1.Text;
For i:=0 to Length(str1) do
begin
if str1 in ['0'..'9'] then
str2:=str2+str1
else
str3:=str3+str1;//------------------------------------a
end;
edit2.text:=str2;
edit3.text:=str3;
end;
这个时候edit3.text显示的是空的内容.显示edit2.text就没有这个问题.
如果我把在a处的str3改成edit3.text就没问题了,到底怎么会事,到底代码里什么
地方写错了????????????

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #2

For i:=0 to Length(str1) do
改为
For i:=1 to Length(str1) do
str1[0]指向什么？？？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #3

同意ysai

 

J

J7T

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #4

对呀？好的我试试

 

J

J7T

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #5

对了，但是我不明白的是如果I：=0的时候它只是为空呀，但是怎么会影响字符串的结果呢？

 

J

J7T

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #6

谢谢，我明白了。

 

卡

卡色

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #7

string也是#0结束，至于edit3.text中有写方法，虑掉了！