
13.04.2011, 10:10
|
Прохожий
|
|
Регистрация: 16.05.2010
Сообщения: 7
Репутация: 10
|
|
Цитата:
Сообщение от Black Raider
А код которым Combobox заполняете можно?
|
Код:
procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Items.Add('Выбрать год');
DataModule2.ADOQuery1.First;
while not DataModule2.ADOQuery1.Eof do
begin
ComboBox1.Items.Add(DataModule2.ADOQuery1.FieldByName('Год').AsString);
DataModule2.ADOQuery1.Next;
end;
DataModule2.ADOQuery1.First;
ComboBox1.Text:='Выбрать год';
end;
|