Dynamic Array Einfache Zuweisung

[mkinzler]

Record Helper, welche in dem Beispiel verwendet werden gab es aber bei D5 noch nicht. Class Helpers gab es ab D2010, record helpers kamen noch später.

[Zoot]

Komischer Thread.
In der Frage wird nirgends ein Array of Array erwähnt, und Record Helper kommen auch nirgends vor.
Von daher verwundern einige Antworten.

[Uwe Raabe]

Soweit ich weiß, gibt es diesen Array-Constructor seit D2007. Für alles darunter ist wohl Handarbeit angesagt - oder halt ein Update...

[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);