home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / ARTLSRC.RAR / USE32.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  401b  |  27 lines
  1. unit Use32;
  2.  
  3. {&Use32-}
  4.  
  5. interface
  6.  
  7. type
  8. {$IFDEF USE32}
  9.   Integer    = System.Longint;
  10.   Word       = System.Longint;
  11. const
  12.   MaxInt     = MaxLongint;
  13. {$ELSE}
  14.   SmallInt   = System.Integer;
  15.   SmallWord  = System.Word;
  16. {$ENDIF}
  17. type
  18.   PByte      = ^Byte;
  19.   PWord      = ^Word;
  20.   PLongint   = ^Longint;
  21.   PSmallInt  = ^SmallInt;
  22.   PSmallWord = ^SmallWord;
  23.  
  24. implementation
  25.  
  26. end.
  27.