home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / lxlt121s.zip / lxLite_src / common / Use32.pas < prev   
Pascal/Delphi Source File  |  1996-09-04  |  609b  |  32 lines
  1. unit Use32;
  2.  
  3. interface
  4.  
  5. type
  6.   SmallWord  = System.Word;
  7.   SmallInt   = System.Integer;
  8.   Word16     = System.Word;
  9.   Integer16  = System.Integer;
  10.   Integer32  = System.Longint;
  11.   Word32     = System.Longint;
  12. {$IFDEF USE32}
  13.   Integer    = System.Longint;
  14.   Word         = System.Longint;
  15. const
  16.   MaxInt     = MaxLongint;
  17. {$ENDIF}
  18. type
  19.   pByte      = ^Byte;
  20.   pWord      = ^Word;
  21.   pLongint   = ^Longint;
  22.   pSmallInt  = ^SmallInt;
  23.   pSmallWord = ^SmallWord;
  24.   pWord16    = ^Word16;
  25.   pInteger16 = ^Integer16;
  26.   pWord32    = ^Word32;
  27.   pInteger32 = ^Integer32;
  28.  
  29. implementation
  30.  
  31. end.
  32.