Показать сообщение отдельно
  #4  
Старый 13.04.2011, 10:10
St_K St_K вне форума
Прохожий
 
Регистрация: 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;
Ответить с цитированием