Polymorphie

Aus ProgrammingWiki

• Eine Variable (Instanz) kann für Objekte verschiedener Klassen stehen
• Dieselbe Methode (z.B. "zeige") kann an unterschiedliche Objekte verschiedener Klassen gesendet werden und diese wissen, wie es auszuführen ist.
• Der Sender muss also nicht wissen, zu welcher Klasse ein Objekt gehört.

Bsp:

type TListe = class .. Kollektion : array[0..9] of TFigur; ... end; // implement-Teil procedure Traversieren; var AktuelleFigur : TFigur; // Der Variablen der Oberklasse begin // TFigur dürfen die Variablen while not Liste.EoList do // der Unterklassen zugewiesen werden. begin AktuelleFigur := Liste.GetElement; // Es ist nicht bekannt, AktuelleFigur.getFlaeche; // was kommt! -> Methodensuche end; end;

In "getFlaeche" soll die Flaeche berechnet und zurückgegeben werden.

type TFigur=class function getFlaeche:real; virtual; // Funktion muss nicht existieren end; TKreis=class(TFigur) r:real; function getFlaeche:real; override; // Funktion wird überschrieben end; TQuadratclass(TKreis) function getFlaeche:real; override; // Funktion wird überschrieben end;

Wenn TKreis.getFlaeche aufgerufen wird, wird nicht die in TFigur definierte Funktion benutzt, sondern die überschriebene ("override") Funktion bei TKreis.