Question

delphi combobox默认值问题

我把combobox与sql数据库进行了关联，能成功显示，但运行后combobox是空，想把数据表的第一个记录显示为默认值，应该怎么办
代码：
procedure TForm2.FormCreate(Sender: TObject);
var
i : integer;
begin
combobox1.itemindex:=0;
ComboBox1.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select xzm from xzdm');
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
for i:=0 to ADOQuery1.RecordCount-1 do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('xzm').AsString);
ADOQuery1.Next;
end;

end;

end;

Answer 1

在写入ComboBox1之后，加上一句ComboBox1.ItemIndex:=0;