Работа с компонентами как с массивом

[dina13]

У меня есть 10 компонентов LabeledEdit и 1 Edit. В поле Edit пользователь вводит число от 1 до 10 и в зависимости от этого столько же первых компонентов LabeledEdit должно остаться видимыми, а остальные - невидимыми. Например, пользователь ввёл "3". Тогда

procedure TForm1.Button18Click(Sender: TObject);
LabeledEdit1.Visible:=true;
LabeledEdit2.Visible:=true;
LabeledEdit3.Visible:=true;
LabeledEdit4.Visible:=false;
LabeledEdit5.Visible:=false;
................................
LabeledEdit10.Visible:=false;

Было бы хорошо это организовать как-то в виде массива, потому что писать 100 строк кода как-то нерационально. Есть ли более простой способ это организовать?

может что-то типа этого:
var LabEd:array[1..10] of .......
for i:=1 to 10 do
LabEd[i]:=TLabeledEdit.Create(Self);

[veniside]

array[1..10] of TWinControl;

[Stilet]

Обсуждалось уже.
Вот пример Баламута: http://www.programmersforum.ru/showthread.php?t=18194
Только там поменяй на TLabeledEdit проверяемый тип

[veniside]

и пересчитывать индексы из списка Controls в индексы лейблов.. свой массив для этой задачи лучше.

[Stilet]

и пересчитывать индексы из списка Controls в индексы лейблов

а это еще зачем?
Хотя я тебя понял, ты имеешь ввиду что автору понадобятся не все LabeledEdit а только некоторые?
Ну в таком случае автору стоит пояснить подробнее, но из того что я понял вполне подойдет решение, предложенное мной. Просто твое решение предполагает заводить этот массив как-то, не думаю что автору это будет удобно.

[veniside]

А твое решение погасит вобще все лейблы на форме, кроме первых трёх в порядке их создания. Независимо от того, где они визуально расположены, и вобще, относятся ли к тем, которые надо гасить. Хотя, может Дине это и надо )

[dina13]

Хочу ещё показать способ, может не рациональный, но простенький...
procedure TForm1.Button5Click(Sender: TObject);
var i,n:integer;
label 1,2,3,4,5,6,7,8,9,10;
begin
labelededit1.Hide;
labelededit2.Hide;
labelededit3.Hide;
labelededit4.Hide;
labelededit5.Hide;
labelededit6.Hide;
labelededit7.Hide;
labelededit8.Hide;
labelededit9.Hide;
labelededit10.Hide;

n:=strtoint(Edit1.Text);

for i:=1 to n do
begin
case i of
1: labelededit1.Show;
2: labelededit2.Show;
3: labelededit3.Show;
4: labelededit4.Show;
5: labelededit5.Show;
6: labelededit6.Show;
7: labelededit7.Show;
8: labelededit8.Show;
9: labelededit9.Show;
10: labelededit10.Show;
end;
end;
end;

[asmodey1]

Как любит говорить Дапкунайте - "Абальдеть !"
Подсказка :

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    comp: TComponent;
begin
for i:=1 to StrToInt(Edit1.Text) do
begin
comp:=FindComponent('Label'+IntToStr(i));
(comp as TLabel).Visible:=True;
end;
end;