🚀 go-pugleaf

Spójrzcie na poniższy programik, potem powiedzcie, co powinno się 
wypisać. A potem uruchomcie to w BP7 i zobaczcie, co się faktycznie 
wypisuje. Uruchomcie w FP i porównajcie.

Gdzie jest błąd?



Type

   PFIrstClass = ^TFIrstClass;
   TFIrstClass = object
                   X: INteger;
                   Constructor init;
                   constructor init2;
                   destructor done;
                   procedure wypiszmnie;virtual;
                 end;

   PSecondClass = ^TSecondClass;
   TSecondClass = object(TFIrstClass)
                   procedure wypiszmnie;virtual;
                  end;


   PThirdCLass = ^TThirdCLass;
   TThirdCLass = object(TSecondClass)
                   Z: integer;
                   Constructor init;
                   procedure wypiszmnie;virtual;
                 end;


Constructor TFIrstClass.init;
begin
   X := 1;
end;

Constructor TFIrstClass.init2;
begin
   Self.init;
end;



destructor TFIrstClass.done;
begin
end;


Constructor TThirdClass.init;
begin
   if not Inherited Init2
   then
     Fail;

   Z := 1;
end;

procedure TFirstClass.wypiszmnie;
begin
   Writeln('Pierwsza');
end;

procedure TSecondClass.wypiszmnie;
begin
   Writeln('Druga');
end;


procedure TThirdClass.wypiszmnie;
begin
   Writeln('Trzecia');
end;


var
   P: PFirstClass;
begin
   P := New(PThirdClass, Init);
   P^.WypiszMnie;
   Dispose(P, Done);
end.