Здравствуйте, Гость
Воскресенье, 24.09.2017, 16:19
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Начинающим » Тест с множественным выбором с помощью CheckBox (Не суммирует баллы)
Тест с множественным выбором с помощью CheckBox
ad1951Дата: Понедельник, 21.01.2013, 19:13 | Сообщение # 1
Ранг 1
Группа: Пользователи
Сообщений: 1
Награды: 0
Репутация: 0
Статус: Offline
На 5 закладках расположены GroupBox. В каждом по 5 CheckBox. Создана процедура по нажатию стандартного Ок.
procedure OKBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
U_Test2: TU_Test2;
Ball2:Byte;
implementation

{$R *.dfm}

procedure TU_Test2.OKBtnClick(Sender: TObject);
begin
Ball2:=0;
if (checkbox2.Checked=true) and (checkbox4.Checked=true) and (checkbox1.Checked=false) and
(checkbox3.Checked=false) and (checkbox5.Checked) then Ball2:=Ball2+1;
if (checkbox7.Checked=true) and (checkbox9.Checked=true) and (checkbox6.Checked=false) and
(checkbox8.Checked=false) and (checkbox10.Checked) then Ball2:=Ball2+1;
if (checkbox12.Checked=true) and (checkbox15.Checked=true) and (checkbox11.Checked=false) and
(checkbox13.Checked=false) and (checkbox14.Checked=false) then Ball2:=Ball2+1;
if (checkbox17.Checked=true) and (checkbox20.Checked=true) and (checkbox16.Checked=true) and
(checkbox18.Checked=false) and (checkbox19.Checked) then Ball2:=Ball2+1;
if (checkbox22.Checked=true) and (checkbox24.Checked=true) and (checkbox21.Checked=false) and
(checkbox23.Checked=false) and (checkbox25.Checked=false) then Ball2:=Ball2+1;
Label7.Caption:='Ball2='+inttostr(Ball2);
end;
Почему значение Ball2 всегда присваивается 0?
Сроки поджимают. Буду рад любой идее. За =false и =true не критикуйте особо... Знаю как надо. Но...

Добавлено (21.01.2013, 19:13)
---------------------------------------------
cry

 
Форум » Все о Delphi » Начинающим » Тест с множественным выбором с помощью CheckBox (Не суммирует баллы)
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz