线程中用string[i]提示出错？(50分)

T

tjzxj1977

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #1

在线程中我定义了
str :string；
chr :char;
当运行到chr := str[1] 时出错
提示“ read of address 00000000 ”
请大虾们指点迷津：（

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #2

请贴出全部代码，要不，鬼才知道

 

Y

yzxcsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
ch:char;
s:string;
begin
s:='abcde';
ch:= s[1] ;
ShowMessage(ch);
//这样没错

但是如果s := '' 那么就报错拉
因此可以这样
if s<>'' then

ch := s[1];
这样就不会错啦
end;

 

F

formality

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #4

肯定是你的处理Str这里的错误，下标越界。

 

T

tjzxj1977

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #5

谢谢yzxcsw
正是字符串为空了

 

T

tjzxj1977

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #6

多人接受答案了。