Убрать повтор записей в combobox

[Stian]

Доброго времени суток. Имеется база данных Access через ADO. На форме DBGrid и Combobox. В таблице есть поле год, по которому надо проводить фильтрацию, т.е. в combobox выбираешь нужный год, и в DBGrid отображаются только проекты выбранного года. Код следующий:

procedure TForm1.ComboBox1Change(Sender: TObject); 
begin i
f ComboBox1.Text<>'Выбрать год' then DataModule2.ADOQuery1.Filter:='Год='+QuotedStr(ComboBox1.Text) else DataModule2.ADOQuery1.Filter:=''; 
end;

Все бы ничего, вот только в combobox каждый год отображается столько раз, сколько записей о нем в таблице. Как сделать, чтобы каждый год отображался только один раз и при этом фильтр работал?

[Serge_Bliznykov]

не понял, у Вас обычный ComboBox или DBComboBox ?!
Если обычный - где код заполнения комбобокса?!

А вообще, не надо ничего удалять - самый простой и эффективный способ - выполнить запрос вида:

 SELECT Год from ВашаТаблица group by Год order by Год

или же, если это по какой-то причине не возможно/не желательно,тогда в том цикле, где добавляются записи в комбобокс вставить дополнитленую проверку - если запись есть в комбобоксе, то её уже не добавлять.

p.s. можно и удалить повторяющиеся записи из комбобокса, это не сложно, просто зачем удалять то, что не должно там быть - проще устранить причину появления дубликатов..

[Stian]

Сообщение от Serge_Bliznykov

не понял, у Вас обычный ComboBox или DBComboBox ?!
Если обычный - где код заполнения комбобокса?!

Обычный, вот код:

procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Items.Add('Выбрать год');
DataModule2.ADOQuery1.First;
while not DataModule2.ADOQuery1.Eof do
begin
СomboBox1.Items.Add(DataModule2.ADOQuery1.FieldByName('Год').AsString);
 DataModule2.ADOQuery1.Next;
end;
DataModule2.ADOQuery1.First;
ComboBox1.Text:='Выбрать год';
end;

[Serge_Bliznykov]

ну, оба ("цивильных") предложенных мною варианта полностью Вам подходят.
я бы рекомендовал через запрос - быстрее, проще и эффективнее!

[eltoro1994]

у меня вопрос:как в delphi6 при записи в combobox убрать повторения?если запись можно сделать и большими и маленькими буквами?

[Serge_Bliznykov]

eltoro1994, а чем Вас не устраивает мой ответ из пост #2 ?!

Если нужно игнорировать регистр, то это делается просто - приводите записи к одному регистру (либо UpperCase, либо LowerCase).