delphi 下拉框控件中插入表数据

来源:互联网 发布:jsp 企业站cms 编辑:程序博客网 时间:2024/06/06 07:44
procedure TForm1.FormCreate(Sender: TObject);var   i:integer;begin   adoquery1.Close;   //表查询代码略   adoquery1.Open;   adoquery1.First;   for i:=1 to adoquery1.RecordCount do     begin        combobox1.AddItem(adoquery1.Fieldbyname('users').AsString,nil);        adoquery1.next;        end;end

原创粉丝点击