Vergleich Basic DATA Datentyp

[jbg]

Wenn es dir unbedingt wichtig ist, dass du die Anzahl der Zahlen nicht ermitteln willst, kannst du das auch mit einer Hilfsfunktion umgehen:

Delphi-Quellcode:

type
  TDynDoubleArray = array of Double;

function DoubleArrayOf(const Args: array of Double): TDynDoubleArray;
var
  I: Integer;
begin
  SetLength(Result, Length(Args));
  for I := 0 to High(Args) do
    Result[I] := Args[I];
end;

var
  Data: array[0..2] of TDynDoubleArray;
  {...}

procedure TForm1.FormCreate(Sender: TObject);
begin
  { Hier werden die "konstanten" Daten initialisiert }
  Data[0] := DoubleArrayOf([1, 2, 3, 10, 8, 9, 0.3]);
  Data[1] := DoubleArrayOf([5.6, 3, 7, 1, 5, 12]);
  Data[2] := DoubleArrayOf([2.8, 6]);
  {...}
end;