Задать ItemIndex-y свои значения.

[Detka.i.alex]

Добрый день.

Сейчас я пытаюсь работать с бд по средствам делфи. И мне надо, изменить индексы комбобокса, для того чтобы присвоить им индексы с бд.

У меня есть поле в бд id_z в котором следующие значения: 50,51,52,55,59, мне надо чтобы в списке были эти же значения в этои порядке.

procedure TForm3.FormCreate(Sender: TObject);
begin
  Form1.UniQuery1.SQL.Text:='Select * from zagotovki order by nd_z ASC';
  Form1.UniQuery1.Open;
  ComboBox2.Text:=''+Form1.UniQuery1.FieldByName('nd_z').AsString+'x'+Form1.UniQuery1.FieldByName('vd_z').AsString
+'x'+Form1.UniQuery1.FieldByName('d_z').AsString+'';
  while not Form1.UniQuery1.Eof do begin
    ComboBox2.Items.Add(''+Form1.UniQuery1.FieldByName('nd_z').AsString+'x'+Form1.UniQuery1.FieldByName('vd_z').AsString
+'x'+Form1.UniQuery1.FieldByName('d_z').AsString+'');
    ComboBox2.ItemIndex:=Form1.UniQuery1.FieldByName('id_z').Asinteger;
    Form1.UniQuery1.Next;
  end;
end;

Но увы, у меня это не получается...
Думал всю таблицу слить в stringGrid, а потом работать с данными в компбобокс, но думаю, что проще будет просто изменить индексы. Покрайней мере в пшп я бы так и поступил.
Очень жду ваших советов.

Спасибо!

[Человек_Борща]

Проблема в том что items комбобокса начинается с 0, а не с n .
Найдите другое место для хранения своих значений. Например массив целых чисел.

[Detka.i.alex]

Сам только, что об этом подумал
Спасибо.