Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Вниз

ComboBox: проверка уникальности элементов   Найти похожие ветки 

← →
cdaDMITRIY   (2001-12-31 17:00) [3]

GroupNum.Visible:=True; Label6.Visible:=True;
with DriverTable do begin
Active:=True; First;
while (not EOF) and (not glob_cancel_loop) do begin
S:=FieldByName("Group").AsString; Ind:=True;
FOR I:=0 TO GroupNum.Items.Count-1 Do IF GroupNum.Items.Strings[I]=S Then Begin Ind:=False; Break; End;
IF IND Then GroupNum.Items.Add(S); Next; application.processmessages;
end;
Active:=False;
end;

GroupNum -- ComboBox

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.003 c