Нелегальное выражение: если, тогда еще заявление

Question

Я не понимаю, что не так с этим кодом:

procedure WebBrowserForm.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = true then
    Button1.Enabled = true else
    Button1.Enabled = false;
end;

Может кто-нибудь сказать мне, пожалуйста?

Answer 1

Ваш код должен быть

procedure WebBrowserForm.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = true then
    Button1.Enabled := true else
    Button1.Enabled := false;
end;

В Delphi оператор присваивания равен :=, тогда как = вместо этого является оператором сравнения.

Кстати, вы можете написать свой кодпроще как

procedure WebBrowserForm.CheckBox1Click(Sender: TObject);
begin
  Button1.Enabled := CheckBox1.Checked;
end;