Тема: Цикл
Показать сообщение отдельно
  #4  
Старый 02.07.2009, 19:07
Ваводя Ваводя вне форума
Прохожий
 
Регистрация: 02.07.2009
Сообщения: 4
Репутация: 10
По умолчанию

подскажите и мне чтоли. Новую тему создавать не стал, потому что вопрос у мну почти тоот же самый.

Код:
procedure Tcalculator.ComboBox6Exit(Sender: TObject);
begin
GroupBox2.Visible:=false;     // здесь оно обнуляет видимость
GroupBox3.Visible:=false;      // всех девяти групбоксов.
GroupBox4.Visible:=false;   // Первый всегда видимый, поэтому он не упомянут
GroupBox5.Visible:=false;
GroupBox6.Visible:=false;
GroupBox7.Visible:=false;
GroupBox8.Visible:=false;
GroupBox9.Visible:=false;
GroupBox10.Visible:=false;

KolSek:= StrToInt(ComboBox6.Text);  //KolSek-это количество секций,
                                     //которое пользователь указывает
for i:=2 to KolSek do
 GroupBox[i].Visible:=true;  //в зависимости от того, что укажет пользователь нужно сделать видимыми
                             //определённое количество Групбоксов
end;


Вопрос в том, что он выдаёт ошибку в строке

GroupBox[i].Visible:=true;

нужно как-то массив объявить или что?

Сильно прошу не пинать, это мой первый код, и соответственно, первый вопрос на форуме.
Ответить с цитированием