Mehrdimensionale Dynamische Arrays

[Pr0g]

Ich hätte das Beispiel wohl schneller schreiben sollen, nun ist man mir zuvor gekommen, aber egal

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fMap: Array of Array of Integer;
  i, j,
  fCount: Integer;
  s: String;
begin
  // Länge festlegen
  Setlength(fMap, 2, 4);

  // Beispielwerte reinschreiben
  fCount := 0;
  for i := Low(fMap) to High(fMap) do
  begin
    for j := Low(fMap[i]) to High(fMap[i]) do
    begin
      fMap[i, j] := fCount;
      Inc(fCount);
    end;
  end;

  // Und in ein Memo auslesen
  Memo1.Clear;
  for i := Low(fMap) to High(fMap) do
  begin
    s := '';
    for j := Low(fMap[i]) to High(fMap[i]) do
      s := s + IntToStr(fMap[i, j]) + ' ';
    Memo1.Lines.Add(s);
  end;
end;

MfG Pr0g