Copy const array to dynamic array in Delphi
This will copy constAry1 to dynAry.
SetLength(dynAry, Length(constAry1));
Move(constAry1[Low(constAry1)], dynAry[Low(dynAry)], SizeOf(constAry1));
From Delphi XE7, the use of string-like operations with arrays is allowed. Then you can declare a constant of a dynamic array directly. For example:
const
KEY: TBytes = [$97, $45, $3b, $3e, $c8, $14, $c9, $e1];
function CopyByteArray(const C: array of Byte): TByteDynArray;
begin
SetLength(Result, Length(C));
Move(C[Low(C)], Result[0], Length(C));
end;
procedure TFormMain.Button1Click(Sender: TObject);
const
C: array[1..10] of Byte = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
var
D: TByteDynArray;
I: Integer;
begin
D := CopyByteArray(C);
for I := Low(D) to High(D) do
OutputDebugString(PChar(Format('%d: %d', [I, D[I]])));
end;
procedure TFormMain.Button2Click(Sender: TObject);
const
C: array[1..10, 1..10] of Byte = (
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10));
var
D: array of TByteDynArray;
I, J: Integer;
begin
SetLength(D, Length(C));
for I := 0 to Length(D) - 1 do
D[I] := CopyByteArray(C[Low(C) + I]);
for I := Low(D) to High(D) do
for J := Low(D[I]) to High(D[I]) do
OutputDebugString(PChar(Format('%d[%d]: %d', [I, J, D[I][J]])));
end;