Долбанный Combobox

[MeTeOpA]

Не добавляется более 8 обьектов. Почему?

procedure TForm3.FormCreate(Sender: TObject);
var i:integer;
begin

Combobox1.Clear;
Combobox2.Clear;
Edit1.Text:='';
for i:=0 to dbgrid1.FieldCount-1 do
 begin

     combobox2.Items.Add(dbgrid1.Fields[i].DisplayName);
     ComboBox1.Items.Add(ADOQuery1.Fields.Fields[0].AsString);
     ADoquery1.Next;
 end;
Combobox1.ItemIndex:=0;
Combobox2.ItemIndex:=0;
end;

[MeTeOpA]

что бы было понятнее опишу...
в Edit1 вписывается искомое значение.
в Combobox1 выбирается по какому полю будет производится поиск
а в Combobox2 вбивается значения 1 столбца

[Droid]

Лучше используй DBLoockupcombobox там проще все выбирать.

[vovk]

Сообщение от MeTeOpA

Не добавляется более 8 обьектов. Почему?

procedure TForm3.FormCreate(Sender: TObject);
var i:integer;
begin

Combobox1.Clear;
Combobox2.Clear;
Edit1.Text:='';
for i:=0 to dbgrid1.FieldCount-1 do
 begin

     combobox2.Items.Add(dbgrid1.Fields[i].DisplayName);
     ComboBox1.Items.Add(ADOQuery1.Fields.Fields[0].AsString);
     ADoquery1.Next;
 end;
Combobox1.ItemIndex:=0;
Combobox2.ItemIndex:=0;
end;

если вы внимательно посмотрите, то количество прохождений цикла = количеству колонок DBGrid. их у вас вероятно 8, ну и записей соответственно только 8 будет, вот если бы у вас записей меньше было чем колонок, то вы бы задавали вопрос "почему вылетает с AV"
надо разделить заполнение комбобоксов

for i:=0 to dbgrid1.FieldCount-1 do
     combobox2.Items.Add(dbgrid1.Fields[i].DisplayName);

     ADoquery1.First; //это если не уверены что курсор на 1 записи, мало ли когда форма создаётся
While Not ADoquery1.eof do
begin     
  ComboBox1.Items.Add(ADOQuery1.Fields.Fields[0].AsString);
     ADoquery1.Next;
end;

[MeTeOpA]

к сожалению в дбгриде записей 12))

[vovk]

А колонок в гриде сколько?

[MeTeOpA]

колонок..

8

[MeTeOpA]

щас попробую как вы сказали...

[MeTeOpA]

все работает... спасибо)