Имеется форма. На форме - TabControl, содержащий несколько закладок, в каждой из которых - 20-30 чекбоксов.
Задача: каждый чекбокс имеет определенный "вес", определяемый в баллах. После отметки нужных чекбоксов по нажатию кнопки должен высчитываться суммарный балл и передаваться на другую форму. При повторном открытии формы с чекбоксами балл должен быть равен нулю.
Пока у меня реализовано это вот так:
PHP код:
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if TCheckBox(Sender).Checked then sum3:=sum3+TCheckBox(Sender).Tag/100 else
sum3:=sum3-TCheckBox(Sender).Tag/100;
end;
Поскольку значения есть дробные, то используется округление. Значение каждого чекбокса лежит в tag.
Но, видимо, это не лучший вариант, поскольку, порой, эта система глючит и у меня оказывается отрицательный результат. Посоветуйте, как лучше это реализовать?