na genauso:
Delphi-Quellcode:
var myGBruch:TGBruch;
mybruch:TBruch;
begin
myGBruch:=TGBruch.create(1,1);// erzeugt instanz von TGBruch
myBruch:=TBruch.create(1,1);//erzeugt Instanz von TBruch
myBruch.free;
myGBruch.free;
end;
die Klasse TGBruch hat keinen eigenen Konstructor, weswegen der Konstructor der überschriebenen Klasse (TBruch) aufgerufen wird.
cu
waba