-
-
-
-
> для простаты стрингами. !!! это пять! :)
-
аааа! достойно топа башорга.
-
Очередной "ученик" Фаронова-Архангельского
-
мда. спасибо "мастера", "помогли"..
-
> ddd (18.09.12 15:30) [6] > мда. спасибо "мастера", "помогли"..
Тут все устали говорить про параметры в запросах. Думаю, Николай только поэтому ничего не ответил :)
А некоторые - читать длинные речи, суть которых можно пересказать 2 мя словами. "Как привязать к Item комбобокса некое значение?" Вот при чем тут было ADO, Access, т.п.
например, так можно procedure TFrm_PrV.Button1Click(Sender: TObject); var i: Integer; begin ComboBox1.Clear; ADOQuery1.SQL.Text := 'select ''Otdel1'' union select ''Otdel2'' union select ''Otdel3'' '; ADOQuery1.Open; i := 0; while not(ADOQuery1.Eof) do begin ComboBox1.Items.AddObject(ADOQuery1.Fields[0].AsString, TObject(i*10)); // но не пытайтесь обратиться к нему :) inc(i); ADOQuery1.Next; end; end;
procedure TFrm_PrV.ComboBox1Change(Sender: TObject); begin ShowMessage( IntToStr( LongInt( ComboBox1.Items.Objects[ComboBox1.ItemIndex] ))); end;
-
Понятно.. Использование DBCombobox религия не позволяет.
-
> ddd (18.09.12 15:30) [6] > > мда. спасибо "мастера", "помогли".. >
мда, пожалуйста. Пошёл против своей натуры ответив на вопрос троешника. А в ответ только оскорбления. :(
|