Показать/скрыть edit`ы

[Rapala]

У меня есть допустим 50 editов. Нужно указать кол-во нужных edit`ов в поле edit и показать только нужные.
Тоесть, если в edit поле 5, то нужно чтоб показались 5 edit`ов
Как это осуществить?

[Sibedir]

Вариант 1:
У формы есть специальное свойство, через которое можно обратиться ко всем компонентам, расположенным на нем

Form1.Components

Вариант 2: Попроще.

var
  Arr: array of TEdit;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength (Arr, {скока надо});
  Arr [0] := Edit1;
  Arr [1] := Edit2;
  Arr [2] := Edit3;
  Arr [3] := Edit4;
...
end;

Далее работаем с едитами через глобальный массив Arr.

[RAZOR3]

а можно вот так

for i:=2 to StrToInt(Edit1.text) do
TEdit(FindComponent('Edit'+IntToStr(i))).Visible:=true;

[Человек_Борща]

А если не всем лень переименовывать компоненты с editN в более читабельный вид? Если у всех эдитов разные имена? вот решение , думаю правельное..

procedure ComponentsAct(); //перебор комопонент
var
i:integer; // переменная перечисления компонент
Obj:TObject; //переменная типа Обьект
begin
for i:=0 to Form.ComponentCount -1 do //перечисляем на форме компоненты и передаем значение в i
begin
Obj:=Form.Components[i]; //присваиваем Obj значения переменной i
if Obj is TEdit then //если в Obj есть обьект типа TEdit то
TEdit(Obj).Visible:=False; //TEdit(кол-во из Obj).видимость:=фалс
end;

если форм много и на всех надо это сделать, то:

procedure MultiComponentsAct(); //
var
i,j:integer; //j - перечисляет все видимые формы...
Obj:TObject; //
begin
For f:=0 to Screen.FormCount -1 do //заносим в j все видимые формы
begin
for i:=0 to Screen.Forms[f].ComponentCount -1 do //
begin
Obj:=Form.Components[i]; //
if Obj is TEdit then //
TEdit(Obj).Visible:=False; //
end; //
end; //

все просто=)