关于string(50分)

D

dohye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #1

str:string;

setlength(str,300);
str[50]:='a';
Edit1.Text:=str;
为何字符串里没有'a'

 

L

LSS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #2

setlength()最多支持到255,而且在给第50个单元赋值前须给前49个单元赋值

 

T

Town

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #3

str好象应该先初始化一下吧.

var
str:string;
i:Integer;
begin
setlength(str,300);
for i:=1 to 300 do
str:=' ';
str[1]:='a';
Edit1.Text:=str;
end;

 

D

dohye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #4

多人接受答案了。