Copier le tableau const dans un tableau dynamique dans Delphi

J'ai une constante fixe tableau

constAry1: array [1..10] of byte = (1,2,3,4,5,6,7,8,9,10);

et un tableau dynamique

dynAry1: array of byte;

Quelle est la façon la plus simple de copier les valeurs d' constAry1 à dynAry1?

Faut-il changer si vous avez un const tableau de tableaux (multidimensionnelle)?

constArys: array [1..10] of array [1..10] of byte = . . . . .

source d'informationauteur Jim McKeeth | 2009-06-11

  1. 12
    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;
  2. 25

    Cette copie constAry1 à dynAry.

    SetLength(dynAry, Length(constAry1));
Move(constAry1[Low(constAry1)], dynAry[Low(dynAry)], SizeOf(constAry1));