The compiler does not allow sets greater than 32 bits to be contained in a published section. The size, in bytes, of a set can be calculated by High(setname) div 8 - Low(setname) div 8 + 1. -$M+
(*$TYPEINFO ON*) program Produce; type CharSet = set of Char; NamePlate = class Characters : CharSet; published property TooBig : CharSet read Characters write Characters ; end; begin end. (*$TYPEINFO ON*) program Solve; type CharSet = set of 'A'..'Z'; NamePlate = class Characters : CharSet; published property TooBig : CharSet read Characters write Characters ; end; begin end.
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|