CheckBox в анкете |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
CheckBox в анкете |
GrabbeR |
15.03.2012 17:25
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Помогите доделать, пожалуйста!
1. Объявляем переменную типа byte; 2. При выборе любого чекбокса увеличивать ее на 1 3. Если чекбокс не выбран то соответственно +0 (не прибавлять) 4. Общие чекбоксы в переменную не записывать 5. Button2 - обнуление всех чекбоксов (якобы новая страница) 6. Button1 - показать результат (сумму всех значений для каждого чекбокса) Что-то типа flag:=flag+1; Например: А=1 А+А=2 ... Прикрепленные файлы Anketa.zip ( 203.05 килобайт ) Кол-во скачиваний: 248 -------------------- Чем больше я узнаю, тем больше понимаю, что ничего не знаю
|
IUnknown |
15.03.2012 18:48
Сообщение
#2
|
a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
procedure TForm1.Button2Click(Sender: TObject); Обнуление - либо аналогично, в цикле сбрасывать все чекбоксы от 1 до 96, либо гораздо более быстрым циклом: procedure TForm1.Button1Click(Sender: TObject); Кстати, for i:=1 to 15 doделать не обязательно. Можно сделать проще: for i:=1 to 15 do |
Текстовая версия | 2.10.2024 0:05 |