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




Вниз

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


Oleg Fomicheff   (2001-12-31 05:26) [0]

Во-первых, всех с наступающим!!!
Во-вторых, порадуйте меня, плиз, ответом на вопрос: как проверить существует ли добавляемый элемент в ComboBox?
Пытался сделать в цикле от 0 до ComboBox.Items.Count-1 проверку условия:
ComboBox.Text<>ComboBox.Items.Strings[i]
и после
ComboBox.Items.Add(ComboBox.Text) делать break
НО НЕ ПОШЛО :(((

---
Олег.



Suntechnic   (2001-12-31 07:43) [1]

Приведи код целиком.



Херувим   (2001-12-31 10:07) [2]

А чем не проверка .Items.IndexOf(<строка>)... А? и попробуй добавлять Append"ом



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



Oleg Fomicheff   (2002-01-01 07:24) [4]

По порядку:
1. ТО Suntechnic. Вот моя "кривулька"
for i:=0 to Combobox1.Items.Count-1 do
begin
if Combobox1.Text<>Combobox1.Items.Strings[i] then
begin
Combobox1.Items.Append(Combobox1.Text);
break;
end;
end;

2. ТО Херувим:
как видно из текста, добавляю именно Append"ом :)

3. ТО cdaDMITRIY:
спасибо, за совет, но "в логику" пока не въехал: в Дельфи я еще только-только начал разбираться :)



Desdechado   (2002-01-02 11:30) [5]

if( cbx.Items.IndexOf( cStr ) <> -1 ) then
cbx.Items.Append( cStr );



andy5   (2002-01-02 21:47) [6]

Согласен с Desdechado.
Что касается твоего текста, он принципиально неверен.
Добавление происходит на первом же несуществующем элементе.



Херувим   (2002-01-03 01:30) [7]

Удалено модератором




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




Наверх





Память: 0.72 MB
Время: 0.013 c
3-66186           Gollo                 2001-12-16 23:29  2002.01.21  
Возврат на запись после редактирования


1-66293           BFG                   2002-01-04 21:18  2002.01.21  
Mortal Combat 4


1-66238           ~(;_;)~               2001-12-28 14:48  2002.01.21  
Как сделать какой-то файл, скажем – «C: Test.cnf» заблокированным?!


4-66415           Константин            2001-11-17 21:50  2002.01.21  
По(ту)сторонние звуки


14-66356          Крутов Алексей        2001-11-23 12:11  2002.01.21  
Password для Delphi4