verschachtelte dynamische arrays initialisieren

[Kolonius]

Hallo Community,
ich stolpere über die Initialisierung von folgender Struktur:

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);
// init
var n,k,sum0, anzahl, sda:integer;
    s1,s2:string;
begin
  anzahl:=strtoint(edit1.Text);
  mdaten:=strtoint(edit2.Text);
  setlength(???,mdaten); // bezieht sich auf "daten" oben im Record
  setlength(km,anzahl);

Alle Kombinationen, die ich probiert habe, bringen Compilerfehler. Die Variable kann ich aber mit: km[n].daten[k]:=random(2); fehlerfrei adressieren.
Ich bitte um Hilfe.

Gruß Kolonius

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

[Kolonius]

@dummzeuch

Danke, das war's. Ich wär nicht drauf gekommen, dass man es mit ner Schleife machen muss.

Dir noch schöne Weihnachten, bye bye.

Kolonius

[himitsu]

Man mag es vielleicht nicht glauben, aber "DAS" SetLength gibt es garnicht,
und Dank ein bissl Compilermagic ....

SetLength(km, anzahl, mdaten);