HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Срочно!! нужна помощь по Delphi !
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Срочно!! нужна помощь по Delphi !
  #1  
Старый 17.04.2010, 11:26
Voland-791
Познающий
Регистрация: 01.05.2009
Сообщений: 40
С нами: 8962257

Репутация: 3
Exclamation Срочно!! нужна помощь по Delphi !
Сталкнулся с такой проблемой пишу программу проблема в компонентах CheckBox (галочки) и Button хочу сделать так
напремер предоставлен большой список в виде "CheckBox" если выбрано 5вещей и это должно быть задействовано при нажатии "Button" да знаю что эт работает через усливия... вот ток как их составить?
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 17.04.2010, 12:01
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами: 8850305

Репутация: 259
По умолчанию
Пробуй так:

PHP код:
var k:integer;
begin
k:=0;
if checkbox1.checked then k:=k+1;
if checkbox2.checked then k:=k+1;
if checkbox3.checked then k:=k+1;
if checkbox4.checked then k:=k+1;
if checkbox5.checked then k:=k+1;
if checkbox6.checked then k:=k+1;
if checkbox7.checked then k:=k+1;

if k>=5 then showmessage('Выбрано 5') else showmessage('Выбрано меньше 5') 
пробовал через циклы чтоб было, но не получилось...
 
Ответить с цитированием

  #3  
Старый 17.04.2010, 12:27
cheater_man
Постоянный
Регистрация: 13.11.2009
Сообщений: 437
С нами: 8680278

Репутация: 17
По умолчанию
Цитата:
Сообщение от EndLeSSDre@M  
Пробуй так:

PHP код:
var k:integer;
begin
k:=0;
if checkbox1.checked then k:=k+1;
if checkbox2.checked then k:=k+1;
if checkbox3.checked then k:=k+1;
if checkbox4.checked then k:=k+1;
if checkbox5.checked then k:=k+1;
if checkbox6.checked then k:=k+1;
if checkbox7.checked then k:=k+1;

if k>=5 then showmessage('Выбрано 5') else showmessage('Выбрано меньше 5') 
пробовал через циклы чтоб было, но не получилось...

А если я выберу 1,2 и 7 то он будет считать,что я выбрал 1,2,3
 
Ответить с цитированием

  #4  
Старый 17.04.2010, 12:35
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами: 8850305

Репутация: 259
По умолчанию
ну пусть пробует через массив, куда будет записываться номер выбранного.. тут же в массиве можешь проверять ключ i на количество выбранного! как мне кажется это тупой вариант, но работать должен))

PHP код:
var i:integer; 
k:array[1..10] of integer;
begin 
i:=1; 
if checkbox1.checked then k[i]:=1 and i:=i+1; 
if checkbox2.checked then k[i]:=2 and i:=i+1; 
if checkbox3.checked then k:[i]=3 and i:=i+1; 
if checkbox4.checked then k:[i]=4 and i:=i+1; 
if checkbox5.checked then k:[i]=5 and i:=i+1; 
if checkbox6.checked then k:[i]=6 and i:=i+1; 
if checkbox7.checked then k:[i]=7 and i:=i+1; 
 
Ответить с цитированием

  #5  
Старый 17.04.2010, 15:54
Voland-791
Познающий
Регистрация: 01.05.2009
Сообщений: 40
С нами: 8962257

Репутация: 3
По умолчанию
Списибо за ответы нашел выход в током виде

if CheckBox22.Checked = true then
memo1.Lines.Add(metalcore[3]);
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Срочно! Нужна помощь... Chack. Болталка 60 13.02.2010 11:52
Срочно нужна помощь по экселю! gold-goblin Болталка 9 18.12.2009 04:07



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.