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

[neolithos]

Delphi-Quellcode:

TCreature = class
private
  FName: string;
  function GetName(fCreatur : TCreatur): string; 
public
  property Name : String read GetName;
end;

function TCreature.GetName(fCreatur : TCreatur): string; 
begin 
  Result := fCreatur.FName; 
end;

[...]

if MyCreature.GetName(FWorldArray[i][j]) = 'Sand' then ...

Das ^-Zeichen kannst du dir bei Klassen in Delphi sparen. Es wird implizit angenommen.