可以把数据存到数据表,然后搜索数据表,进行遍历 procedure TForm1.FormCreate(Sender: TObject); begin with ADOQuery1 do begin Open; while not EOF do begin DBComboBox1.items.add(FieldByName('Name').AsString); ComboBox1.items.add(FieldByName('Name').AsString); Next; end; end; end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with ADOQuery1 do
begin
Open;
while not EOF do
begin
DBComboBox1.items.add(FieldByName('Name').AsString);
ComboBox1.items.add(FieldByName('Name').AsString);
Next;
end;
end;
end;