Dynamic Array Einfache Zuweisung

[HolgerX]

Mit einer kleinen Hilfsfunktion geht das schon etwas einfacher:

Delphi-Quellcode:

type
  TIntArray = array of integer;

function GetIntArray(AIntArr : array of integer):TIntArray;
begin
  setlength(result,length(AIntArr));
  move(AIntArr[0],result[0],length(AIntArr)* SizeOf(integer));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyArr: TIntArray;
begin
  MyArr := GetIntArray([10, 20, 30, 40]);
  // ...
end;

Sollte auch unter Delphi 5 laufen, habe es aber nur mit Delphi 6 getestet.

Alternative:

Delphi-Quellcode:

procedure FillIntArray(AIntArr : array of integer;var AMyArr : TIntArray);
begin
  setlength(AMyArr,length(AIntArr));
  move(AIntArr[0],AMyArr[0],length(AIntArr)* SizeOf(integer));
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  MyArr: TIntArray;
begin
  FillIntArray([10, 20, 30, 40], MyArr);