|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Помошь с алгоритмом
Помогите рализовать алгоритм, проверяем есть ли номер в LB1(ListBox1) если нашли то выполняем "действие1" дальше не ищем, если нет, проверяем число итемов в LB1 если больше нужного числа, то выполняем "действие2", иначе мы ищем есть ли номер в LВ2, LB3, LB4, LB5 и как найдем удаляем, и затем добавляем в LB1, И выполняем "действие1".
|
#2
|
||||
|
||||
Код:
var mem: integer; inache: boolean; begin Inache:=True; for mem:=0 to listbox1.Count do begin if listbox1.Items[mem] = "номер" then begin "действие1" Inache:=False; Break; end; If Inache = True then begin If listbox1.Count > 198 tnen begin "действие2" end else begin for mem:=0 to listbox1.Count do begin if listbox2.Items[mem] = "номер" then begin listbox2.Items.Delete(mem); Break; end; for mem:=0 to listbox1.Count do begin if listbox3.Items[mem] = "номер" then begin listbox3.Items.Delete(mem); Break; end; for mem:=0 to listbox1.Count do begin if listbox4.Items[mem] = "номер" then begin listbox4.Items.Delete(mem); Break; end; for mem:=0 to listbox1.Count do begin if listbox5.Items[mem] = "номер" then begin listbox5.Items.Delete(mem); Break; end; listbox1.Items.add("номер"); end; вот вобщем набросал гляньте сойдет или нет. |