Arrays setzen ohne Array[Nummer]

[himitsu]

Delphi-Quellcode:

// TIntegerDynArray ist in der Unit Types schon fertig deklariert

function CreateIntArray(Data: array of Integer): TIntegerDynArray;
var i: Integer;
begin
  SetLength(Result, Length(Data));
  for i := 0 to High(Result) do
    Result[i] := Data[i + Low(Data)];
end;

(ich weiß, es ließe sich noch noch mit einem MOVE optimieren, aber so wäre erstmal für alle möglichen Arrays sehr leicht anpaßbar)

Delphi-Quellcode:

var arr: TIntegerDynArray;
begin
  arr := CreateIntArray([1,2,3,4,5,6,7,8,9]);
end;

Aber Delphi 2006/TDE könnte man sich, bei sowas, auch noch mit Record-Methoden und einer Kapselung des Arrays in einem Record helfen.