Заполнение TDBComboBox procedure TForm1.FormCreate(Sender: TObject); begin with table2 do begin open; while not EOF do begin DBlistbox1.items.add(FieldByName('name').AsString); next; end; end; end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
procedure TForm1.FormCreate(Sender: TObject); begin with table2 do begin open; while not EOF do begin DBlistbox1.items.add(FieldByName('name').AsString); next; end; end; end;
Заполнение TDBComboBox