Двухмерные массивы(StringGrid)

[MaksimSeriy]

Заполнение двухмерного массива данными из StringGrid, тут все работает))

procedure TForm1.BitBtn_OkClick(Sender: TObject);
 var n, m, i, j, fix_n, fix_m: integer;
   a: array [0..10,0..10] of real;
begin
   n:=StringGrid_In.ColCount;
   m:=StringGrid_In.RowCount;
   fix_n:=StringGrid_In.FixedCols;  
   fix_m:=StringGrid_In.FixedRows;  
      
 for i:= fix_n to n-1 do
 for j:= fix_m to m-1 do
   a[i-fix_n,j-fix_m]:= StrToFloat(StringGrid_In.Cells[i,j]);

   n:=StringGrid_Out.ColCount;
   m:=StringGrid_Out.RowCount;
   fix_n:=StringGrid_Out.FixedCols;
   fix_m:=StringGrid_Out.FixedRows;
     
 for i:= fix_n to n-1 do
 for j:= fix_m to m-1 do
   StringGrid_Out.Cells[i,j]:= FloatToStr(a[i-fix_n,j-fix_m]);
end;

end.

А вот теперь нужно сделать то же самое, только для динамического массива и тут я немного запутался

procedure TForm1.BitBtn_OkClick(Sender: TObject);
 var n, m, i, j, fix_n, fix_m: integer;
   a: array of array of real;
begin
   n:=StringGrid_In.ColCount;
   m:=Stprocedure TForm1.BitBtn_OkClick(Sender: TObject);
 var n, m, i, j, fix_n, fix_m: integer;
   a: array of array of real;
begin
   n:=StringGrid_In.ColCount;
   m:=StringGrid_In.RowCount;
   fix_n:=StringGrid_In.FixedCols;  
   fix_m:=StringGrid_In.FixedRows;  
     SetLength(a,n);
     SetLength(a[n],m);
      
 for i:= fix_n to n-1 do
 for j:= fix_m to m-1 do
   :confused: a[i-fix_n,j-fix_m]:= StrToFloat(StringGrid_In.Cells[i,j]);//здесь вылетает break

   n:=StringGrid_Out.ColCount;
   m:=StringGrid_Out.RowCount;
   fix_n:=StringGrid_Out.FixedCols;
   fix_m:=StringGrid_Out.FixedRows;
     
 for i:= fix_n to n-1 do
 for j:= fix_m to m-1 do
   StringGrid_Out.Cells[i,j]:= FloatToStr(a[i-fix_n,j-fix_m]);
end;

end.

[Sazary]

Вот тут немного по-другому:

SetLength(a,n);
SetLength(a[n],m);

надо:

SetLength(a,n);
for i:=1 to n do
 SetLength(a[i],m);

Это будет массив nxm.

[MaksimSeriy]

OK, cпасибо!

SetLength(a,n);
for i:=1 to n do
SetLength(a[i],m);
тоже не работает(((((( break вылетает в конце процедуры

[Sazary]

Вот..
Неудобно, что вы стандартные имена изменили.

procedure TForm1.BitBtn_OkClick(Sender: TObject);
var n, m, i, j, fix_n, fix_m: integer;
a: array of array of real;
begin
n:=StringGrid_In.ColCount;
m:=StringGrid_In.RowCount;
fix_n:=StringGrid_In.FixedCols;
fix_m:=StringGrid_In.FixedRows;
SetLength(a,n-fix_n);
for i:=0 to n-fix_n-1 do
 SetLength(a[i],m-fix_m);

for i:= fix_n to n-1 do
 for j:= fix_m to m-1 do
  a[i-fix_n,j-fix_m]:= StrToFloat(StringGrid_In.Cells[i,j]);

  n:=StringGrid_Out.ColCount;
m:=StringGrid_Out.RowCount;
fix_n:=StringGrid_Out.FixedCols;
fix_m:=StringGrid_Out.FixedRows;

for i:= fix_n to n-1 do
 for j:= fix_m to m-1 do
  StringGrid_Out.Cells[i,j]:= FloatToStr(a[i-fix_n,j-fix_m]);
end;