MathgeomGLS

1
unit Velthuis.Sizes;
2

3
interface
4

5
const
6
  CUInt8Bits    = 8;
7
  CInt8Bits     = CUInt8Bits - 1;
8
  CUInt16Bits   = 16;
9
  CInt16Bits    = CUInt16Bits - 1;
10
  CUInt32Bits   = 32;
11
  CInt32Bits    = CUInt32Bits - 1;
12
  CUInt64Bits   = 64;
13
  CInt64Bits    = CUInt64Bits - 1;
14
  CByteBits     = CUInt8Bits;
15
  CShortintBits = CByteBits - 1;
16
  CWordBits     = CByteBits * SizeOf(Word);
17
  CSmallintBits = CWordBits - 1;
18

19
  // Note: up to XE8, Longword and Longint were fixed sizes (32 bit). This has changed in XE8.
20
  CLongwordBits = CByteBits * SizeOf(Longword);
21
  CLongintBits  = CLongwordBits - 1;
22

23
  // Note: up to XE8, Integer and Cardinal were platform dependent. This has changed in XE8.
24
  CCardinalBits = CByteBits * SizeOf(Cardinal);
25
  CIntegerBits  = CCardinalBits - 1;
26

27
implementation
28

29
end.
30

31

32

33

34

35