|
#1
|
||||
|
||||
Фильтр для delphi
Здравствуйте!!! У меня такая проблема: нужно в 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 запрос??? Последний раз редактировалось Admin, 10.12.2014 в 22:15. |
#2
|
||||
|
||||
Код:
select distinct ... — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Можно конечно через запрос, а можно и так:
Код:
with TStringList.Create do begin Sorted := True; Text := ComboBox1.Items.Text; ComboBox1.Items.Text := Text end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
Angel_A (11.12.2014)
|
#4
|
||||
|
||||
Цитата:
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
||||
|
||||
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |