Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > CheckBox в анкете

Автор: NotFound 15.3.2012, 17:37

Помогите доделать, пожалуйста!

1. Объявляем переменную типа byte;
2. При выборе любого чекбокса увеличивать ее на 1
3. Если чекбокс не выбран то соответственно +0 (не прибавлять)
4. Общие чекбоксы в переменную не записывать
5. Button2 - обнуление всех чекбоксов (якобы новая страница)
6. Button1 - показать результат (сумму всех значений для каждого чекбокса)

Что-то типа flag:=flag+1;

Например:
А=1
А+А=2
...

Автор: ColdSpirit 16.3.2012, 06:36

Цитата

2. При выборе любого чекбокса увеличивать ее на 1

можно сделать так?

Код


var
 i,n: Integer;
 begin
   for i:=1 to 96 do
     if TCheckbox(FindComponent('Checkbox'+Inttostr(i))).checked then n:=n+1
       
end;