Здравствуйте!!! У меня такая проблема: нужно в Combobox занести записи из столбца DBGrid для фильтрации данных.
Я использовала следующий код:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to ADOQuery1.RecordCount-1 do
begin
Combobox1.Items.Add(ADOQuery1.FieldbyName('Nazvanie').AsString);
ADOQuery1.Next;
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ADOQuery1.Filter:='Nazvanie ='+QuotedStr(Combobox1.Text);
ADOQuery1.Filtered:=true;
end;
Админ: Пользуемся тегами для оформления кода!
Все это работает, НО можно ли исключить повторяющиеся значения или как-нибудь по-другому заполнить combobox, например через SQL запрос???