Упрощение программы посредством цикла

@Mie4ka · Регистрация: 16.12.2010

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

Есть текст:

Delphi

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
      if RadioGroup1.ItemIndex=0 then begin
                                             ComboBox1.Visible:=false;
                                             ComboBox2.Visible:=false;
                                             ComboBox3.Visible:=false
                                      end;
 
      if RadioGroup1.ItemIndex=1 then begin
                                             ComboBox1.Visible:=true;
                                             ComboBox2.Visible:=false;
                                             ComboBox3.Visible:=false
                                      end;
      if RadioGroup1.ItemIndex=2 then begin
                                             ComboBox2.Visible:=true;
                                             ComboBox1.Visible:=false;
                                             ComboBox3.Visible:=false
                                      end;
      if RadioGroup1.ItemIndex=3 then begin
                                             ComboBox3.Visible:=true;
                                             ComboBox1.Visible:=false;
                                             ComboBox2.Visible:=false
                                      end;
end;

Подскажите плиз как упростить его используя цикл.
Вернее сказать как составить цикл мне понятно, а как присвоить переменной номер ComboBox я не пойму (ComboBox1, ComboBox2, ComboBox3).

@Valenth · 30.11.2013, 08:18

А зачем тут циклы? Вам нужна параметрическая магия.

Delphi

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  index: integer;
  obj: TComponent;
begin
  index := RadioGroup1.ItemIndex;
  ComboBox1.Visible:=false;
  ComboBox2.Visible:=false;
  ComboBox3.Visible:=false;
  obj := FindComponent('ComboBox'+IntToStr(index));
  if (obj<>nil) then
    TComboBox(obj).Visible := true;
end;

@Mie4ka · 02.12.2013, 01:05 **[ТС]**

Большое спасибо. В эту сторону мозги у меня даже не повернулись )))))

@Mie4ka 1 / 1 / 0 Регистрация: 16.12.2010 Сообщений: 21
	02.12.2013, 01:05 [ТС]	3
	Большое спасибо. В эту сторону мозги у меня даже не повернулись ))))) 0