Subj : about the last post
To   : All
From : Chris Hoppman
Date : Sun Sep 26 2004 02:39 pm

Okay, I got it wrong in the last post.  This is how I have it setup.

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}
arec = record
  aaset:set of aset;
  bbset:set of bset;
end;
var
 srec : arec;

begin
clrscr;
{they both have 24 elements}
writeln('Set A SizeOf: ',Sizeof(srec.aaset));{returns 4}
Writeln('Set B SizeOf: ',Sizeof(srec.bbset));{returns 3}
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)