Ошибка при скрытии объектов при смене значения ComboBox

above92

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
case combobox2.ItemIndex of
0:
DBGrid3.Visible:=true; // ХОЧУ ЗДЕСЬ ДОБАВИТЬ ЕЩЁ СТРОКИ НО ВЫДАЁТ ОШИБКУ, ЧТО СДЕЛАТЬ
ComboBox1.Visible:=true; // ТУТ ПОЯВЛЯЕТСЯ ОШИБКА constant expression expected
 
1:
begin
DBGrid1.Visible:=true;
DBGrid3.Visible:=false;
ComboBox1.Visible:=true;
end;
end;
end;
begin
if ComboBox1.ItemIndex=0 then //выбрана 1 строка
 begin
  ComboBox2.Visible :=True;
  ComboBox3.Visible :=False
 end
else
 if ComboBox1.ItemIndex=1 then //2 строка
  begin
   ComboBox2.Visible :=False;
   ComboBox3.Visible :=True
  end;
end;
2 ответа

above92

а где begin после 0:


above92

begin if ComboBox1.ItemIndex=0 then //выбрана 1 строка *begin * ComboBox2.Visible :=True; * ComboBox3.Visible :=False *end else *if ComboBox1.ItemIndex=1 then //2 строка * begin * *ComboBox2.Visible :=False; * *ComboBox3.Visible :=True * end; end;
Можно и короче...
ComboBox2.Visible := ComboBox1.ItemIndex = 0;
ComboBox3.Visible := not ComboBox2.Visible;