[Angel_A]

Здравствуйте!!! У меня такая проблема: нужно в 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 запрос???

[M.A.D.M.A.N.]

Код:

select distinct ...

[Страдалецъ]

Можно конечно через запрос, а можно и так:

Код:

with TStringList.Create
 do begin
    Sorted := True;
    Text := ComboBox1.Items.Text;
    ComboBox1.Items.Text := Text
    end;

но правильнее вообще делать все это с помощью DBLookupComboBox

[M.A.D.M.A.N.]

Сообщение от Страдалецъ

Можно конечно через запрос, а можно и так:

Код:

with TStringList.Create
 do begin
    Sorted := True;
    Text := ComboBox1.Items.Text;
    ComboBox1.Items.Text := Text
    end;

но правильнее вообще делать все это с помощью DBLookupComboBox

Это что за «ватафак» такой?

[Страдалецъ]

Сообщение от M.A.D.M.A.N.

Это что за «ватафак» такой?

Это такой забавный способ воспользоваться сортировкой с отбрасыванием повторов, которые реализованы в TStringList.