Delphi list index out of bounds(1) Error ( 积分: 10 )

J

jugcx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-05

• #1

for i:=0 to listbox2.Count-1 do
begin
listbox2.Selectall;
adoquery2.SQL.Clear;
adoquery2.SQL.add('select * from guanjz where guanj=' + '''' + listbox2.Items.Strings + '''');
adoquery2.Open;
LB3.Items.Add(adoquery2.FieldByName('daim').asString);
begin
e:=lb3.Items.Strings + ' AS ' + listbox2.Items.Strings;
begin
if listbox2.Count=i then
begin
d:= '';
end
else
begin
d:= ',';
listbox2.Items.Delete(i+1);
end;
end;
end;
f:=e + d + f;
showmessage(f);
adoquery2.Next;
end;
第二遍到 adoquery2.SQL.add('select * from guanjz where guanj=' + '''' + listbox2.Items.Strings + '''');
这行就出 Delphi list index out of bounds(1) Error问题,谢谢大家帮忙看看

 

N

newsmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-05

• #2

listbox2越界了，你要保证listbox2里有i个Item。

 

J

jugcx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-05

• #3

谢谢,我做出来了,不过是问同事的.

 

X

xiaoli1740

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-05

• #4

使用listbox2.Items.Strings之前最好用if i<listbox2.Items.Count then 判断；

 

J

jugcx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-06

• #5

多人接受答案了。