Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mikkey,
10. Jun 2015
Nö, so wird ein Schuh draus:
Procedure TWerkzeug0.SetProperties();
begin
...
end;
Procedure TWerkzeug1.SetProperties();
begin
inherited SetProperties();
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mikkey,
9. Jun 2015
Das ist eigentlich nicht der Sinn, der hinter abstrakten Klassen steckt.
Wenn ich eine Basisklasse mit quasi-abstrakten Methoden habe, die nur wahlfrei überschrieben werden können, definieren ich keine abstrakten Methoden sondern echte, die als einzige Anweisung das Werfen einer Ausnahme enthalten.
Procedure Basisklasse.SetNotExistentValue(value: Integer);
begin
raise...