Werte an Array übergeben?

[neolithos]

Ich bereite das meist Werte in einem Constanten bereich vor und kopiere später den Bereich.

Delphi-Quellcode:

type
  TIntArray = array [0..5] of Integer;
  
procedure Test;
const
  ciTmp : TIntArray = (1, 2, 3, 4, 5, 6);
var iTmp : TIntArray;
    i : Integer;
begin
  Move(ciTmp, iTmp, SizeOf(TIntArray));
  for i := 0 to 5 do                  
      Writeln(iTmp[i]);
  readln;
end;

Sieht eve. etwas umständlich aus, ist aber genau das was der C-Compiler auch macht.