delphi

[Ekzamenator]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if Checkbox1.Checked then  b1:=1.1 and
  ComboBox2.Enabled:=False and
  ComboBox3.Enabled:=False and
  ComboBox4.Enabled:=False and
  ComboBox5.Enabled:=False
  else b1:=0 and
  ComboBox2.Enabled:=True and
  ComboBox3.Enabled:=True and
  ComboBox4.Enabled:=True and
  ComboBox5.Enabled:=True;
  raschet;
  end;

выдает ошибку,что не так?

[Jaguar83]

Может так?

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if Checkbox1.Checked then  
  begin
    b1:=1.1;
    ComboBox2.Enabled:=False;
    ComboBox3.Enabled:=False;
    ComboBox4.Enabled:=False;
    ComboBox5.Enabled:=False
  else 
  begin  
    b1:=0;
    ComboBox2.Enabled:=True;
    ComboBox3.Enabled:=True;
    ComboBox4.Enabled:=True;
    ComboBox5.Enabled:=True;
    raschet;
  end;
end;

[Ekzamenator]

неа,после елсе вылезает ошибка
[Error] main.pas(221): 'END' expected but 'ELSE' found

[Glob]

Попробуй так

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if Checkbox1.Checked then  
  begin
    b1:=1.1;
    ComboBox2.Enabled:=False;
    ComboBox3.Enabled:=False;
    ComboBox4.Enabled:=False;
    ComboBox5.Enabled:=False
   end
  else 
  begin  
    b1:=0;
    ComboBox2.Enabled:=True;
    ComboBox3.Enabled:=True;
    ComboBox4.Enabled:=True;
    ComboBox5.Enabled:=True;
    raschet;
  end;
end;