<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:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

On 07.10.2013 20:38, silvioprog wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
2013/10/7 Sven Barth <<a href="mailto:pascaldragon@googlemail.com" target="_blank">pascaldragon@googlemail.com</a><br>
<mailto:<a href="mailto:pascaldragon@googlemail.com" target="_blank">pascaldragon@<u></u>googlemail.com</a>>><br>
<br>
    On 07.10.2013 19:29, silvioprog wrote:<br>
<br>
        Hello,<br>
<br>
        I was surfing the internet and came across this structure Delphi:<br>
<br>
<br>
        TJSONPair=  class  sealed(TJSONAncestor)<br>
<br>
<br>
        So, what is this?<br>
<br>
<br>
    Simple: You are not allowed to create child classes of sealed<br>
    classes (the compiler enforces this). FPC supports this since 2.4.2.<br>
<br>
    Regards,<br>
    Sven<br>
<br>
<br>
Perfect!<br>
<br>
It tested it:<br>
<br>
   TBaseClass = class<br>
   end;<br>
<br>
   TOtherClass = class sealed(TBaseClass)<br>
   end;<br>
<br>
   TFooClass = class(TOtherClass)<br>
   end;<br>
<br>
and:<br>
<br>
unit1.pas(24,32) Error: Cannot create a descendant of the sealed class<br>
"TOtherClass"<br>
<br>
It is wonderful, thank you very much Sven! :)<br>
</blockquote>
<br>
Well, the opinion whether this feature is wonderful or not differs among FPC/Delphi users :P<br>
<br>
Regards,<br>
Sven<br></blockquote></div><br clear="all"><div>:D</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>