переполнение стека!

@spydark91 · Регистрация: 03.03.2011

Author24 — интернет-сервис помощи студентам

вот код

Delphi

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
if checkbox7.Checked=false then
begin
checkbox1.Checked:=true;
checkbox2.Checked:=true;
checkbox3.Checked:=true;
checkbox4.Checked:=true;
checkbox5.Checked:=true;
checkbox6.Checked:=true;
checkbox7.Checked:=true;
exit;
end;
if checkbox7.Checked=true then
begin
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;
checkbox5.Checked:=false;
checkbox6.Checked:=false;
checkbox7.Checked:=false;
end;
 
 
end;

если уберу первый if,то все окей,но если с ним,то ошибка:переполнение стека

@Puporev · 30.08.2011, 21:28

А что Вы хотите получить? Если Вы кликаете на CheckBox, то сразу checkbox7.Checked=true и никогда не будет false. Может это лучше на кнопку повесить?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if checkbox7.Checked=false then
begin
checkbox1.Checked:=true;
checkbox2.Checked:=true;
checkbox3.Checked:=true;
checkbox4.Checked:=true;
checkbox5.Checked:=true;
checkbox6.Checked:=true;
checkbox7.Checked:=true;
exit;//это для чего?
end
else
begin
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;
checkbox5.Checked:=false;
checkbox6.Checked:=false;
checkbox7.Checked:=false;
end;
end;

@Alex_pac · 30.08.2011, 21:30

Delphi

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
checkbox1.Checked:=not checkbox7.Checked;
checkbox2.Checked:=not checkbox7.Checked;
checkbox3.Checked:=not checkbox7.Checked;
checkbox4.Checked:=not checkbox7.Checked;
checkbox5.Checked:=not checkbox7.Checked;
checkbox6.Checked:=not checkbox7.Checked;
end;

@Mawrat · 30.08.2011, 23:29

Сообщение от spydark91

если уберу первый if,то все окей,но если с ним,то ошибка:переполнение стека

Это происходит из-за рекурсивного зацикливания. В обработчике события OnClick: CheckBox7Click() происходит присваивание:

Delphi

1	CheckBox7.Checked := True;

Это приводит к тому, что опять возникает событие OnClick и, соответственно, опять вызывается обработчик CheckBox7Click(). Этот обработчик опять выполняет строку:

Delphi

1	CheckBox7.Checked := True; //или CheckBox7.Checked := False;

и это опять приводит к возникновению события OnClick. Т. е. обработчик CheckBox7Click() вызывает сам себя и так продолжается до тех пор, пока не переполнится стек. - Это приводит к возникновению исключения.
Вот последовательность вызовов:
CheckBox7Click() -> CheckBox7.Checked := True; -> SetChecked():

Delphi

procedure TCustomCheckBox.SetChecked(Value: Boolean);
begin
  if Value then State := cbChecked else State := cbUnchecked;
end;

State := ... -> SetState():

Delphi

procedure TCustomCheckBox.SetState(Value: TCheckBoxState);
begin
  if FState <> Value then
  begin
    FState := Value;
    if HandleAllocated then
      SendMessage(Handle, BM_SETCHECK, Integer(FState), 0);
    
    //Внимание! Причина здесь.
    if not ClicksDisabled then Click;
 
  end;
end;

-> Click() -> OnClick -> и поять происходит вызов CheckBox7Click(). - Произошло рекурсивное зацикливание.

@spydark91 · 30.08.2011, 23:37 **[ТС]**

проблему уже решил,но всеравно
у меня там стоял exit для выхода их процедыры\.дабы избежать рекурсии

@Mawrat · 30.08.2011, 23:42

Сообщение от spydark91

у меня там стоял exit для выхода их процедыры\.дабы избежать рекурсии

Рекурсия возникает на строке: checkbox7.Checked:=true;, а Exit; расположен после этой строки. Поэтому Exit никаким образом не спасал от рекурсии:

Delphi

...
  checkbox7.Checked:=true; //Здесь возникает рекурсия.
  exit; //Эта строка не выполняется, т. к., программа зацикливается на предыдущей строке.
...

@spydark91 86 / 86 / 13 Регистрация: 03.03.2011 Сообщений: 1,873
	30.08.2011, 23:37 [ТС]	5
	проблему уже решил,но всеравно у меня там стоял exit для выхода их процедыры\.дабы избежать рекурсии 0

	30.08.2011, 23:42