Люди, помогите! Delphi 6. Есть Paradox'овская таблица, скажем, | код продукта | название продукта |. Есть Table1, DataSource1 и DBGrid1. Выполняется Query1 с текстом SELECT NazvanieProducta FROM product.db WHERE KodProducta = 0100. И теперь нужно результаты этой выборки вывести в ComboBox. Как?

Код

While not query1.eof do  begin  Combobox1.items.add(query1.fields[0].asstring);  query1.next;  end;

Благодарю.

А ещё проще использовать DBLookupComboBox, если код продукта уникален... ListSource указываешь DataSource для своей таблицы (ну если сильно хочется - для запроса ), ListField - поле с названием продукта, а Key - код продукта... И всё, при активизации таблицы - DBLookupComboBox будет заполнен всеми продуктами из таблицы, а при выборе какого либо продукта указатель в таблице автоматически перемещается на нужную запись... Если выбранный код продукта нужно ещё занести в какую то другую таблицу, то уазываешь DataSource этой таблицы и DataField - поле в которое будет заноситься код продукта...