Über Hauptklasse auf Unterklasse zugreifen? Greift hier as?

[Nonsense]

Hallo,

ich stehe glaube in einer Sackgasse und ich komme den ganzen Vormittag nicht mehr weiter.
Vorgeschichte: Ich habe ein Array gefüllt mit Instanzen einer Klasse.
Das Array ist ein

Delphi-Quellcode:

array of TCreatur

in dem Instanzen von TRabbit, TFox usw., welche alle von TCreature abgeleitet sind, gespeichert werden.

Jetzt möchte ich gerne über das Array auf die Methoden von TRabbit, TFox usw. zugreifen, nach dem Schema:

Delphi-Quellcode:

MeinArray[X][Y].EineMethodeVonTFox(Wert, NochEinWert: Integer);

Das funktioniert natürlich nicht, da TCreature ja nicht die Methoden der Ableger kennt. Nun dachte ich mir, ich nutze "as". Das heißt konkret, ich erstelle einen Pointer auf eine Position des Arrays und greife darauf zu:

Delphi-Quellcode:

SelectedRabbit^ := Habitat.WorldArray[i][j] as TRabbit;

Da gibt es dann aber eine Zugriffsverletzung, obwohl sich an dieser Position wirklich eine Instanz von TRabbit befinden (!). Wie kann ich jetzt auf die Methoden von Habitat.WorldArray[i][j] zugreifen? Hat jemand eine Idee?

[Luckie]

Eventuell hilft dir das weiter:
http://www.luckie-online.de/Tutorials/ -> Das Klassen Tutorial.

[Nonsense]

Zitat:

Zitat von Luckie

Eventuell hilft dir das weiter:
http://www.luckie-online.de/Tutorials/ -> Das Klassen Tutorial.

Habe mal dein Beispiel ausprobiert, klappt aber irgendwie nicht:

Delphi-Quellcode:

(Habitat.WorldArray[i][j] as TRabbit).DoMove;

Dein Beispiel: (MyFruit as TcitrusFruit).Squeeze

[Nonsense]

Es klappt doch - der Fehler liegt wo anders. Danke, jetzt brauche ich noch nicht einmal mehr einen Pointer, klappt auch so wunderbar!

[Phoenix]

Zitat:

Zitat von Nonsense

Delphi-Quellcode:

SelectedRabbit^ := Habitat.WorldArray[i][j] as TRabbit;

Ich würde - einfach zur Scierheit und zur Wartbarkeit - hergehen und folgendes machen:

Delphi-Quellcode:

if (Habitat.WorldArray[i][j] is TRabbit) then
   SelectedRabbit^ := Habitat.WorldArray[i][j] as TRabbit;

Ansonsten kann es sein, daß Du ein TFox da reinpackst und ich weiss nicht, was eine Hase macht, wenn man ihm am Fuchsschwanz packt ;-)

[Chewie]

Oder performanter:

Delphi-Quellcode:

if (Habitat.WorldArray[i][j] is TRabbit) then 
   SelectedRabbit^ := TRabbit(Habitat.WorldArray[i][j]);

as ruft schon is auf, deswegen reicht hier ein einfacher Cast.

Außerdem: Was soll SelectedRabbit^? Wenn SelectedRabbit vom Typ TRabbit ist, was ich annehme, brauchst du keine Dereferenzierung!

[Nonsense]

is habe ich schon von Anfang an drin, hatte es nur nicht gepostet.

Edit: @Chewie: Hatte anfangs versucht, über einen Pointer darauf zuzugreifen, was natürlich Nonsense ist.
Btw, Chewie, Deine Version ist sogar noch besser, hatte vorher noch ne EAV, mit deiner Version aber nicht mehr. Riesen-Danke! Wieder was gelernt! :dp: :dance: :thuimb: