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)

.