Question

delphi中，listbox问题

我想用一个循环语句，使listbox中的值依次没置为一张数据库表的字段，循环语名如下：但一运行就有错误，光标指向listbox1.Items(i).text
for i:=0 to (listbox1.Items.Count-1) do
begin
str1:=listbox1.Items(i).text;
with table1.FieldDefs.AddFieldDef do
begin
name:=str1;
datatype:=ftString;
size:=6;
end ;
end;

Answer 1

listbox里面的值是不可以通过list.*.text读取的

Answer 2

改成
ListBox1.Items.Strings[i];