Typenumwandlung

[PinKing]

hallo,
gerade hab ich ein kleines problem mit dem informatik projekt das mir mein lehrer aufgedrückt hat. Wie man es allgemein löst hab ich schon herausgefunden, im prinzip müsste ich nur eine Typenumwandlung machen, die DP-Suche hat mich nur soweit gebracht, dass sich das ganze UpCast nennt, leider konnte ich die beispiele nicht auf mein projekt übertragen.
Zum problem.
Wenn es mal fertig ist, soll mit dem programm ein Supermarkt simuliert werden. wir sollten an diesem Beispiel uns üben mit mehreren klassen zu arbeiten. Für diesen zweck haben wir z.B. eine eigene Klasse tRegal und Produkttyp. Da man ja mehrer regale hat werden dementsprechend viele Objekte von den Typen erstellt.
Diese sollen in einer selbstgeschriebenen Listenklasse verwaltet, die mit TObject arbeitet (also als rückgabe wert usw.) mein lehrer meinte es würde reichen wenn man es so allgmein macht.

Objekte in die Liste Eintragen funktioniert wunderbar, aber wenn ich mir ein objekt ausgeben lasse von der liste hat es den typ TObject was mir aber nicht viel bringt, ich muss dem irgendwie beibringen das er es handhaben soll als währe es TRegal oder z.B. TProdukttyp.
dafür bräuchte ich dann diese typenumwandlung, mein problem ist jetzt wie ich diese vornehme.
als beispiel wenn ich mir ein objekt aus der liste ausgeben lasse, wie kann ich dann dort die typenumwandlung vornehmen um auf eine methode des "Regalklasse" zuzugreifen?

Delphi-Quellcode:

Regal := Regalliste.findeObjekt(schluessel);
Regal.fuege_Produkt_ein;

hoffe ihr könnt mir helfen.

mfG
Pin

[bttb930]

Regal := Regalliste.findeObjekt(schluessel) as TRegal; oder

Delphi-Quellcode:

if Regalliste.findeObjekt(schluessel) is TRegal then
  Regal := Regalliste.findeObjekt(schluessel) as TRegal;

oder wenn du ganz sicher bist, dass was zurück kommt und das ein regal ist:

Regal := TRegal(Regalliste.findeObjekt(schluessel));

[PinKing]

herzlichen dank^^
das ist ja simpell *g*

lg pin