Subj : sets in tp
To   : All
From : Chris Hoppman
Date : Sun Sep 26 2004 02:33 pm

Okay.  What is up with Sets in tp/bp that one with 24 elements and another 
with the same amount will return different sizeof's??
I thought I would throw a couple of duds in the set to make up for the extra 
byte in the delphi problem and not have it effect much in the record *.dat 
file I am working with, but darn!  Is it cause of the ?? was going to say 
typed vs non typed (int vs var type of thing), but a set can't be a var?
Just preplex'd about this.


program testset;
uses crt;
type
  aset = 1..24;
  bset = (rlogon,   {1}
          rchat,    {2}
          rvalidate {3}
          ruserlist {4}
          ramsg,    {5}
          rpostan,  {6}
          rpost,    {7}
          remail,   {8}
          rvoting,  {9}
          rmsg,     {10}
          vt100,    {11}
          hotkey,   {12}
          avatar,   {13}
          pause,    {14}
          novice,   {15}
          ansi,     {16}
          color,    {17}
          alert,    {18}
          smw,      {19}
          nomail,   {20}
          fnodlratio,   {21}
          fnopostratio, {22}
          fnocredits,   {23}
          fnodeletion); {24}
begin
clrscr;
writeln('Set A SizeOf: ',Sizeof(aset));
Writeln('Set B SizeOf: ',Sizeof(bset));
writeln;
write('press a key');
repeat until keypressed; 
end.
--- Renegade v09-19.4 DOS
 * Origin: The Titantic BBS Telnet - ttb.slyip.com (1:129/305)

.