🚀 go-pugleaf

Łukasz 'Maly' Ostrowski pisze:
> Andrzej Grażyński wrote:
>> Constructor TFIrstClass.init2;
>> begin
>>   Self.init;  end;
> 
> 
> Powinno się wypisać trzecia, wypisuje się pierwsza.
> Zgaduje, że c-tor TFirstClass.Init nadpisuje VMT z
> bliżej mi nieznanego powodu? A trudno znależć
> dokument analogiczny do ISO 14882 w kontekście
> C++ ale dla Object Pascala, więc trudno mi się
> czymś sensownym podeprzeć w tej kwestii =].
> 
> P.S. Za cholere nie mogę się doszukać czym jest
>         call do Fail, i dlaczego można oczekiwać od
>         c-tora zwrócenia bool'a ;). Ale ja jestem "zbyt
>        nowe pokolenie" ;).
> 
> Przy czym wydaje mi się, że Fail to jakiś odpowiednik
> throw/raise żeby wymusić destrukcję obiektu który
> "nie umiał się zainicjalizować" ;).
> 

Przy wywołaniu:  obiekt.konstruktor  lub inherited konstruktor:

Jeżeli w konstruktorze wykona się Fail, to kończy on pracę i zwraca 
FALSE. Jeśli skończy pracę normalnie, zwraca TRUE.

Przy wywołaniu

wskaźnik_obiektu := New(Typ wsk., Konstruktor (...));

jeśli w konstruktorze wykona się Fail, to funkcja New zwróci NIL.







A propos oryginalnej zagadki, błąd kompilatora jest tutaj:



Constructor TFirstClass.init2;
begin
   Self.init;  <---
end;


To wywołanie nie powinno ruszać pola VMT link, a nadpisuje je typem 
TFirstClass.