Is there a better way to do this -
    {$IFOPT R+}
      {$R-}
                numnames := ntohl(FromServ.NameCount);
      {$R+}
    {$ELSE}
                numnames := ntohl(FromServ.NameCount);
    {$ENDIF}

Why have I done this - Delphi Range checking is no good on 32 bit numbers - especially 
when dealing with this network stuff, as the byte order has to be swapped.

I would have liked to do
 {$ Stack current $R value
 {$R-}
 numnames := ntohl(FromServ.NameCount); // Must always compile with range checking off.
 {$ Unstack old $R value}

Regards

Myles Penlington
Software Engineer
ADVANCED MANAGEMENT SYSTEMS

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

Reply via email to