массив edit-ов

[menik150]

Подскажите, как можна значения c двумерного массива Edit-ов записать в двумерный массив.

Нашел только для одномерного массива:

procedure TForm1.btn1Click(Sender: TObject);
 var
  i,j: Integer; res:string;
  resist: array[1..8] of integer;
begin
  J:=1; //номер элемента массива
  with Form1 do
    for i := 0 to Form1.ComponentCount - 1 do
      if Form1.Components[i] is TEdit then
       begin
        resist[j] := strtoint((Form1.Components[i] as TEdit).Text);
        Inc(j);  //увеличиваем номер
        end; end;

[Alt]

const
EditCountX=10;
EditCountY=10;
var
EditArray: array [1..EditCountX, 1..EditCountY] of TEdit;
ValueArray: array [1..EditCountX, 1..EditCountY] of TString;
...
//ваш код
...
procedure EditToValueCopy;
var
i,j: integer;
begin
for i:=1 to EditCountX do
  for j:=1 to EditCountY do
  begin
  ValueArray[i,j]:=EditArray[i,j].Text;
  end;
end;
...
//ваш код
...