Запутался с CheckBox'ами

[FleXik]

Вобщем есть 4 CheckBox'а и есть Label в котором пишет Осталось: 2 (т.е CheckBox'ов больше), если CheckBox.Checked:=True; - число в "Осталось: 2" уменьшается на единицу, если CheckBox.Checked:=False; - число увеличивается на единицу, но число не может быть больше два (как изначально указано в Label) и число не может быть меньше ноль

Вобщем накидал код он он пашет криво т.к чекбоксов много и уже несколько часов мучаюсь, можно в принципе если Осталось: 0 - выключать (Enabled:=False) все оставшиеся CheckBox'ы, а выбранные оставить включенными...

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if (Label2.Caption<='0') and (CheckBox1.Checked=True) then
begin
ShowMessage('Превышен лимит: 2');
Label2.Caption:='0';
end else
if (Label2.Caption>='0') and (CheckBox1.Checked=True) then
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)-1)
else
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)+1);
end;
 
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if (Label2.Caption<='0') and (CheckBox2.Checked=True) then
begin
ShowMessage('Превышен лимит: 2');
Label2.Caption:='0';
end else
if (Label2.Caption>='0') and (CheckBox2.Checked=True) then
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)-1)
else
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)+1);
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if (Label2.Caption<='0') and (CheckBox3.Checked=True) then
begin
ShowMessage('Превышен лимит: 2');
Label2.Caption:='0';
end else
if (Label2.Caption>='0') and (CheckBox3.Checked=True) then
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)-1)
else
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)+1);
end;
 
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if (Label2.Caption<='0') and (CheckBox4.Checked=True) then
begin
ShowMessage('Превышен лимит: 2');
Label2.Caption:='0';
end else
if (Label2.Caption>='0') and (CheckBox4.Checked=True) then
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)-1)
else
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)+1);
end;

[Serge_Bliznykov]

я лично ничего не понял из условий задачи...

Помните, что невнятная формулировка задания порождает невнятный алгоритм, который, в свою очередь невнятно работает...

[FleXik]

[eval]

зачем так много копий одного кода?

[FleXik]

зачем так много копий одного кода?

не знал на какое другое событие кинуть код)))

[evg_m]

используйте Label только для ВЫВОДА информации (не пользуйтесь ее текущим значением для получения НОВОГО!!)
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)-1)
если очень нужно заведите переменную

var
  checkedCount: integer;

корректируйте ее и выводите ЕЕ(!) значение
НО лучше всего вообще не иметь оной а вычислять данную величину (checkedCount) в каждый нужный момент.

Вычислять что-либо надо на основе ВСЕХ заинтересованных (!) и желательно это делать в одном месте программы!


поскольку прозвучало слово вычислять то логично использовать или функцию xxx:=CalcCheckedValueX;

вычисляем в одном месте (в функции CalcCheckedValueX !)
используем в о всех нужных обработчиках (т.е. там где возможно изменение наших отметок)

xxx:=CalcCheckedValueX;

if xxx.limit>2 then showmessage(превышен лимит!!)
else label2.Caption:=inttost(xxx.checkco unt);

не знал на какое другое событие кинуть код)))

как сделать общий код

[FleXik]

evg_m, как-то плохо обьяснили, ничего не понял, можно конкретнее?

[FleXik]

помогли на другой форуме

[XE5]

Учитесь присваивать обработчики и работать с Sender. Код сходу сокращается вчетверо.

[vasek123]

Что то намудренно так что и не поймешь какова задача. Я бы, сперва, отделил бы логику от графики а уж потом бы что то и решал.

p.s. Вообще, все эти обработчики событий можно было бы перенести в отдельный класс, в отдельную функцию, к тому же, судя по коду, тут в Label2.Caption присваивается одно и то же значение по нескольку раз а это крайне глупо и в современных проектах не приемлемо.