Delphi получение данных из массива?

[kino]

Здравствуйте! Нужна помощь по массивам

Есть массив типа Arr2: array of TEdit;

Длина массива n. Пользователю предлагается ввести n. Далее массив создает n кол-во TEdit'ов. В них пользователей вводит еще n значений. Так вот эти n значений мне и нужны. Как их извлечь и откуда?

Кто может помочь и показать на примере? очень буду благодарен!
Спасибо!

P.S:
я предполагаю, что нужно создать например 9 (n от 1 до 9) переменных типа real, затем приравнять каждый элемент массива к переменной. Что-то типо
a1:=Arr2[1]; a2:=Arr2[2]; но а1 real, а Arr1[1] Tedit.
Изучаю делфи 3 день

[Скандербег]

TEdit - визуальный компонент. Отсюда вывод - нужна форма, на которой они могли быть расположены.
Ответные вопросы.
1. Какой компонент будет отвечать за ввод n?
2. Куда и с какой целью предполагается извлекать n значений из массива TEdit'ов?

Если принять, что ввод значения n будет осуществляться в отдельный TEdit, то тогда на форме размещается этот компонент и кнопка.
После ввода n, нажатие на кнопку создает массив компонентов для ввода значений. Но при этом потребуется с помощью свойств Left и Top компонентов в массиве размещать каждый из них так, чтобы они не закрывали друг друга.

var 
  Arr2 : array of TEdit;

procedure TForm1.Button1Click(Sender : TObject);
var
  N, I, T, L : Integer;
begin
  //вначале проверяется наличие компонентов, если есть то удаляются с формы
  //такая ситуация может быть, если на кнопку нажали повторно, напр., с другим зн. n
  for I := 0 to High(Arr2) do 
    Arr2[I].Free;
  Arr2 := nil;

  //значение n, введенной пользователем (новое количество компонентов)
  N := StrToInt(Edit1.Text);
  SetLength(Arr2, N);
  T := 0; L := 10;
  for I := 0 to N-1 do begin
    Arr2[I] := TEdit.Create(Self);
    Arr2[I].Parent := Self;
    Arr2[I].Left := L;
    Arr2[I].Top := T * 24 + 50; 
    Inc(T);
    if T * 24 + 50 + Arr2[I].Height > ClientHeight then begin
      T := 0; Inc(L, 130);
    end;
  end;
end;
где, 24 - высота одного компонента + gap (зазор между ними);
50 - смещение первого ряда компонентов от верха формы
130 - ширина компонента + gap

Это эскиз кода, который создает и размещает на форме сверху вниз и слева направо n TEdit'ов.
А что дальше делать с введенными в компоненты TEdit значениями пока никто не знает.

[raxp]

дополню... при создании массива эдитов назначайте им одно событие, скажем onChange и перечисляемые tag, это и даст вам возможность извлечь текст со знанием в кого ввели при вводе:

procedure EditChange(Sender: TObject);
var t: string;
begin
 t:= (sender as tedit).Text;
 case (sender as tedit).tag of
  0: ;
  1: ;
 end
end;

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

var arr: array of tedit;
     t: string;
begin
 for i:= low(arr) to high(arr) do
  t:= arr[i].text; // и так далее