Попробуй так
| Код |
var
A, B: array of array of integer;
I, J: integer;
begin
//медленно
SetLength(A, 63 + 78, 242);
for I := 63 to Length(A) - 1 do
for J := 0 to Length(A[I]) - 1 do
A[I, J] := B[I - 63, J];
B := nil;
end;
|
| Код |
var
A, B: array of array of integer;
I, J: integer;
begin
//быстро
SetLength(A, 63 + 78, 242);
System.Move(B[0, 0], A[High(A) - High(B), 0], Length(B) * Length(B[0]) * SizeOf(Integer));
for i := 0 to Length(A) - 1 do
for j := 0 to Length(A[I]) - 1 do
ShowMessage(IntToStr(A[i, j]));
B := nil;
end;
|
|