Typumwandlung: Elemente der Unterklasse in Oberklasse

**enigma**

Hallo Delphi Community,

gestern habe ich ein Thema erstellt, das leider nicht ganz klar war – sorry! Aber vielen Dank für eure Tipps ��
Ich möchte in einem Objekt der Oberklasse auf die Attribute und Methoden der Unterklasse zugreifen.
Ausprobiert habe ich Typumwandlung, aber vielleicht habt ihr andere Ideen...

Kurzer Nachtrag: ich habe mehrere Unterklassen, die als Parameter für TOberklasse.Test(AObj: TOberklasse) verwendet werden können. Der Übersicht halber habe ich nur eine Unterklasse aufgeführt.

Aufruf der Methode Test in

zusammenfalten · markieren

Delphi-Quellcode:

			lObjOberklasse.Test(lObjUnterklasse);

procedure TOberklasse.Test(AObj: TOberklasse);

var lObj: TOberklasse;

//var lObj: TUnterklasse;

begin

  lObj := TOberklasse.Create;

  if AObj is TUnterklasse then

    lObj := AObj as TUnterklasse;                                               //hier verwende ich Typumwandlung

  ShowMessage('lObj.ClassName = ' + lObj.ClassName);

  ShowMessage('lObj.Name = ' + lObj.Name);

  ShowMessage('lObj.Methode = ' + lObj.Methode);

end;

Oben stimmt für lObj der Klassenname „TUnterklasse“, aber „Name“ und „TestMethode“ sind für dieses gecastete lObj nicht deklariert.

Hier die Definition der beiden Klassen:

zusammenfalten · markieren

Delphi-Quellcode:

			  TOberklasse = class(TObject)

    public

      procedure Test(AObj: TOberklasse);

      constructor Create;

  end;

  TUnterklasse = class(TOberklasse)

    public

      Name: String;

      function TestMethode: String;

      constructor Create;

  end;

Typumwandlung: Elemente der Unterklasse in Oberklasse

Typumwandlung: Elemente der Unterklasse in Oberklasse

Stichworte

Forumregeln