2013/10/7 Sven Barth <pascaldra...@googlemail.com> > On 07.10.2013 19:29, silvioprog wrote: > >> Hello, >> >> I was surfing the internet and came across this structure Delphi: >> >> >> TJSONPair= class sealed(TJSONAncestor) >> >> >> So, what is this? >> > > Simple: You are not allowed to create child classes of sealed classes (the > compiler enforces this). FPC supports this since 2.4.2. > > Regards, > Sven
Perfect! It tested it: TBaseClass = class end; TOtherClass = class sealed(TBaseClass) end; TFooClass = class(TOtherClass) end; and: unit1.pas(24,32) Error: Cannot create a descendant of the sealed class "TOtherClass" It is wonderful, thank you very much Sven! :) -- Silvio Clécio My public projects - github.com/silvioprog
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
