verschachtelte dynamische arrays initialisieren

[dummzeuch]

Delphi-Quellcode:

Type
  korbinhalt = record
    daten: array of 0..1;
    diff: integer;
  end;
  Korbmenge = Array of korbinhalt;

var
  km: korbmenge;
  mdaten: integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  n,k,sum0, anzahl, sda:integer;
  s1,s2:string;
  i: integer;
begin
  anzahl:=strtoint(edit1.Text);
  mdaten:=strtoint(edit2.Text);
  // Länge des km-Array setzen
  setlength(km,anzahl);
  // für jeden Record im km-Array
  for i := Low(km) to High(km) do begin
    // die Länge des Daten-Arrays setzen
    setlength(km[i].Daten, mdaten);
  end;