🚀 go-pugleaf

Łukasz 'Maly' Ostrowski pisze:
> Andrzej Grażyński wrote:
>> 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 myślalem że wiem o Object Pascalu wszystko :).
> 
>> 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.
> 
> 
> Czyli włąściwie zgadłem =].
> 
> P.S. Panie Andrzeju, proszę kontynuować z podobnymi zagadkami :).
> 

No dobrze:


{ BP 7 }
Function HighOfPackedString(const X:array of char):Word;
begin
   HighOfPackedString := High(X);
end;

Ile to będzie:

HighOfPackedString('A');

HighOfPackedString('');


Oczywiście łatwo to sprawdzić, ale przed uruchomieniem spróbuj 
odpowiedzieć na wyczucie.