program DelphiCasts;
{$APPTYPE CONSOLE}
uses  SysUtils;
type
   TSpecState =
                ( ssNone  = 0, //not Queued; the NULL value is an equivalent
                  ssFalse = 1, //Sent
                  ssTrue  = 2, //Queued
                  ssChanging = 3, //Sending
                  ssWaitResult = 4, //not used
                  ssError = 5, //Error - specimen is compromised
                  ssResultQueued = ssTrue,
                  ssResultSent   = ssFalse,
                  ssUnknown      = ssNone,
                  ssOrderSent    = ssFalse,
                  ssOrderQueued  = ssTrue          );
 var    i: integer;
 begin
     i := Ord( ssOrderQueued );
     WriteLn( i );
     ReadLn;
end.


Advertisements