<div dir="ltr">2013/10/7 Sven Barth <span dir="ltr"><<a href="mailto:pascaldragon@googlemail.com" target="_blank">pascaldragon@googlemail.com</a>></span><br><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

<div class="im">On 07.10.2013 19:29, silvioprog wrote:<br>
</div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div class="im">
Hello,<br>
<br>
I was surfing the internet and came across this structure Delphi:<br>
<br>
<br></div>
TJSONPair=  class  sealed(TJSONAncestor)<br>
<br>
<br>
So, what is this?<br>
</blockquote>
<br>
Simple: You are not allowed to create child classes of sealed classes (the compiler enforces this). FPC supports this since 2.4.2.<br>
<br>
Regards,<br>
Sven</blockquote></div><div><br></div><div>Perfect!</div><div><br></div><div>It tested it:</div><div><br></div><div><div>  TBaseClass = class</div><div>  end;</div><div><br></div><div>  TOtherClass = class sealed(TBaseClass)</div>

<div>  end;</div><div><br></div><div>  TFooClass = class(TOtherClass)</div><div>  end;</div></div><div><br></div><div>and:</div><div><br></div><div><div>unit1.pas(24,32) Error: Cannot create a descendant of the sealed class "TOtherClass"</div>

</div><div><br></div><div>It is wonderful, thank you very much Sven! :)</div><div><br></div>-- <br>Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div>