Wie Array mit Pointern auf Klassen-Instanzen füllen?

[neolithos]

Wie wäre es damit...

Delphi-Quellcode:

  TWorld = class
  private
    [ ... ]
    FBufferArray: array of array of TCreatur;
  public
    constructor Create(WorldHeight, WorldWidth: Integer);
    [ ... ]
  end;

Delphi-Quellcode:

  SetLength(fBufferArray, FWorldHeight);
  for i := 0 to FWorldHeight - 1 do
    for j := 0 to FWorldWidth - 1 do
    begin
      SetLength(fBufferArray[i], FWorldWidth);
      FBufferArray[i][j] := TGround.Create;
    end;