for i :=0 to self.ControlCount-1 do begin if (self.Controls[i] is TComboBox) then begin ShowMessage(TComboBox(self.Controls[i]).Text); end; end;
with adoquery do begin close; sql.clear; sql.add('select * from table '); open; First; repeat; combobox1.Items.Add(fieldbyname('col').AsString ); Next; until eof; Close; end;
遍历所有combobox 一楼的对
是否是text的值?自己写改变text值的事件,如onchangeraaa:=(sender as Tcombobox).text;
begin
if (self.Controls[i] is TComboBox) then
begin
ShowMessage(TComboBox(self.Controls[i]).Text);
end;
end;
begin
close;
sql.clear;
sql.add('select * from table ');
open;
First;
repeat;
combobox1.Items.Add(fieldbyname('col').AsString );
Next;
until eof;
Close;
end;
一楼的对