Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ComboBox [D7, WinXP]

Дмитрий2004 © (2004-07-08 10:54:00)
У меня есть ComboBox в который из столбца таблицы по циклу заполняются значения , но значения в столбце совпадают и он заносит в ComboBox повторяющиеся значения , подскажите как это можно исключить.

Дмитрий 2004 (2004-07-08 16:36:00) [1]
Kadan спасибо все работает

KADAN (2004-07-08 14:15:00) [2]
сорри, recordcount-1 конечно же

KADAN (2004-07-08 13:49:00) [3]
First;
ComboBox9.clear;
for i:=0 to recordcount do begin
brigada:=Form8.ADOTable4.FieldByName('???????').Value;
if ComboBox9.Items.IndexOf(brigada)=-1 then
ComboBox9.Items.add(brigada);
next;
end;

Ozone (2004-07-08 13:40:00) [4]
ADOQuery + DISTINCT

Дмитрий 2004 (2004-07-08 13:23:00) [5]
Пробовал не получается
я писал так
with Form8.ADOTable4 do
begin
First;
ComboBox9.Clear;
i:=0;
brigada:=Form8.ADOTable4.FieldByName('???????').Value;
ComboBox9.Items.Add(Form8.ADOTable4.FieldByName('???????').Value);
while not eof do
begin
ComboBox9.Refresh;
if brigada=Form8.ComboBox9.Items[i] then
begin
next;
end
else
begin
Form8.ComboBox9.Items.Add(Form8.ADOTable4.FieldByName('???????').Value);
next;
brigada:=Form8.ADOTable4.FieldByName('???????').Value;
Form8.ComboBox9.ItemIndex:=Form8.ComboBox9.ItemIndex+1;
end;

end;
end;

1008 (2004-07-08 11:02:00) [6]
Каждое новое сравнивать с имеющимися в комбобоксе и если такое уже есть, то не добавлять его.

if newString<>Combobox.Items[i] then Combobox.Items.Add(newString);

Семен Сорокин (2004-07-08 10:56:00) [7]
1. Отсортировать таблицу по значениям, не заносить повторяющиеся.
2. Проверять если ComboBox.Items.IndexOf(значение) вернул -1, то заносить.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »