list index out of bound(1)是什么错误，大家帮我看看好嘛，谢谢!

Question

很简单了。你先在adoquery1里回车一下，　空出一行来就行了。这问题我遇到过，就是这么解决的。

Answer 1

你在adoquer1里用回车一下，　空出一行来。以前遇到过这问题。　我是这么解决的。因为你执行到sql.add('*****');这条句语要向adoquer1动态的添加字符串。

Answer 2

在：
adoquery1.InsertRecord([edit1.text,combobox1.items[combobox1.itemindex],combobox2.items[combobox2.itemindex],combobox3.items[combobox3.itemindex],combobox4.items[combobox4.itemindex],edit2.text]);
中是不是有空值，你先把这里面的取出显示，上面的换为：
showmessage(combobox1.items[combobox1.itemindex]);
showmessage(combobox1.items[combobox2.itemindex]);
showmessage(combobox1.items[combobox3.itemindex]);
showmessage(combobox1.items[combobox4.itemindex]);
adoquery1.InsertRecord([edit1.text,combobox1.items[combobox1.itemindex],combobox2.items[combobox2.itemindex],combobox3.items[combobox3.itemindex],combobox4.items[combobox4.itemindex],edit2.text]);
试试！

Answer 3

你在adoquer1里用回车一下，　空出一行来。以前遇到过这问题。　我是这么解决的。因为你执行到sql.add('*****');这条句语要向adoquer1动态的添加字符串。

Answer 4

if combobox1.itemindex < 0 then Exit;
if combobox2.itemindex < 0 then Exit;
if combobox3.itemindex < 0 then Exit;
if combobox4.itemindex < 0 then Exit;

Answer 5

如果ｃｏｍｂｏｘ未被选择，itemindex 为-1.procedure TForm8.Button1Click(Sender: TObject);
begin
 if combobox1.itemindex >= 0 and
    combobox2.itemindex >= 0 and
    combobox3.itemindex >= 0 and
    combobox4.itemindex >= 0 then 
 adoquery1.InsertRecord([edit1.text,combobox1.items[combobox1.itemindex],combobox2.items[combobox2.itemindex],combobox3.items[combobox3.itemindex],combobox4.items[combobox4.itemindex],edit2.text]);end;

Answer 6

你在我的第一个showmessage()上设置断点，要是有空值也就不需要继续运行了。
另外要是这里面有的combobox隐藏起来了，先把它显示，等调试好了再说！

Answer 7

你在我的第一个showmessage()上设置断点，要是有空值也就不需要继续运行了。
另外要是这里面有的combobox隐藏起来了，先把它显示，等调试好了再说！

Answer 8

如果你的数据表只有一条纪录，
combobox中的数据无法添加进去，可以改为
for i:=0 to recordcount do
begin
  combobox4.Items.Add(adoquery1.fieldbyname('kcmc').asstring);
  next;
end;

Answer 9

如果数据表只有一条纪录，combobox中无法添加纪录，改为
for i:=0 to recordcount-1 do 
begin
  combobox4.Items.Add(adoquery1.fieldbyname('kcmc').asstring);
  next;end;

Answer 10

如果数据表只有一条纪录，combobox中无法添加纪录，改为
for i:=0 to recordcount-1 do 
begin
  combobox4.Items.Add(adoquery1.fieldbyname('kcmc').asstring);
  next;end;