1 Unit Types; {Stellt verschiedene Typen und Objekte zur Verf�gung}
2 interface
3 
4 type
5 {$IfDef GPC}
6      {integer varies per target machine, usually 32Bit}
7      ShortInt           = __byte__ integer;      {8  Bit, s}
8      Byte               = __unsigned__ ShortInt; {8  Bit, u}
9      _Integer           = __short__ integer;     {16 Bit, s}
10      Word               = __unsigned__ int;      {16 Bit, u}
11      LongInt            = __long__ integer;      {32 Bit, s}
12      ULong              = __unsigned__ LongInt;  {32 Bit, u}
13      Comp               = __longlong__ Integer;  {64 Bit, s}
14      Single             = __short__ real;
15      Extended           = __long__ real;
16      Pointer            = ^Void;
17      PChar              = ^Char;
18      CString            = __cstring__;   { C style string }
19 {$Else}
20  {$IfDef SPEED}
21  {SP/2}
22      _Integer           = Integer;
23  {$Else}
24   {$IfDef VIRTUALPASCAL}
25   {VP}
26      _Integer           = Integer;
27      ULong              = LongInt;
28   {$Else}
29    {$IfDef VER70}
30    {BP 7.0}
31      _Integer           = Integer;
32      ULong              = LongInt;
33    {$Else}
34     {$IfDef FPC}
35     {$PackRecords 1}
36      _Integer           = Integer;
37      ULong              = LongInt;
38     {$Else}
39     {everything else}
40      _Integer           = Integer;
41      ULong              = LongInt;
42     {$EndIf}
43    {$EndIf}
44   {$EndIf}
45  {$EndIf}
46 {$EndIf}
47 
48      TimeTyp            = Record
49                           Year,Month,Day,DayOfWeek:Word;
50                           Hour,Min,Sec,Sec100:Word;
51                           END;
52 
53      String3            = String[3];
54      String4            = String[4];
55      String8            = String[8];
56      String10           = String[10];
57      String12           = String[12];
58      String20           = String[20];
59      String30           = String[30];
60      String40           = String[40];
61      String50           = String[50];
62      String80           = String[80];
63      String128          = String[128];
64      String255          = String[255];
65 
66      TChar = Array[0..65534] of Char;
67      PChar2 = ^TChar;
68 
69 implementation
70 
71 begin
72 end.
73