TMain - Goethe Gymnasium Dortmund

function TLKW.SitzplatzAnzahl: INTEGER;
BEGIN
RESULT := 3
END;
procedure TMain.BtStartClick(Sender: TObject);
begin
A := TAuto.Create;
B := TLKW.Create;
A.InformationsBereitstellung;
B.InformationsBereitstellung
end;
end.
Beachte: Die Methode Informationsbereitstellung ist in der Unterklasse TLKW
identisch mit der gleichnamigen Methode Informationsbereitstellung in der
Oberklasse TAuto.
Wenn allerdings innerhalb der Methode Informationsbeschaffung die
Hilfsmethode Sitzplatzanzahl aufgerufen wird, dann wird erst geprüft, welches
Objekt gerade vorliegt. In Abhängigkeit vom Ergebnis dieser Prüfung wird
entschieden, ob die Hilfsmethode Sitzplatzanzahl aus der Ober- oder aus der
Unterklasse verwendet wird.
Der Delphi-Quelltext wird also so compiliert, dass erst zur Laufzeit des
Programms die richtige Methodenauswahl getroffen wird. Diese Programmoder
Compilereigenschaft nennt man dynamische oder späte Bindung.
Aus der Sicht des Programmbenutzers zeigen die verschiedenen Objekte ein
polymorphes (=vielgestaltiges) Verhalten: Objekte verschiedener Klassen
reagieren unterschiedlich auf identische Befehle (Informationsbereitstellung).
Man bezeichnet dies als Polymorphie.
Aufgabe: Lösche im obigen Programm das Wort override oder (zweite
Aufgabe) ersetze es durch virtual! Erkläre jeweils das Resultat!
Hinweis: In den VMTs der Ober- und Unterklasse haben vererbte Methoden
dieselben Nummern, egal ob sie überschrieben werden oder nicht.
47