Delphi-Quellcode:
Gebaeude = Object
Flaeche: Integer;
procedure Bauen;
end;
Haus = Object(Gebaeude)
NeNeueVar: String;
procedure Bauen;
end;
1. Flaeche existiert auch in der Klasse Haus.
2. Man kann entweder "Bauen" so "überschreiben":
Delphi-Quellcode:
procedure Haus.Bauen;
begin
Form1.Caption := 'Haus bauen!';
end;
oder/und die Methode einfach vererben:
Delphi-Quellcode:
procedure Haus.Bauen;
begin
inherited;
// eventuell weiterer Quelltext
end;