1 {
2 *****************************************************************************
3 *                                                                           *
4 *  This file is part of the ZCAD                                            *
5 *                                                                           *
6 *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    *
7 *  for details about the copyright.                                         *
8 *                                                                           *
9 *  This program is distributed in the hope that it will be useful,          *
10 *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
11 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
12 *                                                                           *
13 *****************************************************************************
14 }
15 {
16 @author(Andrey Zubarev <zamtmn@yandex.ru>)
17 }
18 
19 unit uzbtypesbase;
20 {$INCLUDE def.inc}
21 interface
22 type
23 {$IFDEF DELPHI}
24 QWord=UInt64;
25 PtrInt={Pointer}Integer;
26 PtrUInt={Pointer}Cardinal;
27 SizeUInt=Cardinal;
28 SizeInt=Integer;
29 DWord=longword;
30 {$ENDIF}
31 {EXPORT+}
32 PGDBDouble=^GDBDouble;
33 {-}GDBDouble=type Double;{/GDBDouble=Double;/}
34 
35 PGDBFloat=^GDBFloat;
36 {-}GDBFloat=type single;{/GDBFloat=Single;/}
37 
38 PGDBString=^GDBString;
39 {-}GDBString=type ansistring;{/GDBString=string;/}
40 
41 PGDBAnsiString=^GDBAnsiString;
42 {-}GDBAnsiString=type ansistring;{/GDBAnsiString=ansistring;/}
43 
44 PGDBBoolean=^GDBBoolean;
45 {-}GDBBoolean=type boolean;{/GDBBoolean=Boolean;/}
46 
47 PGDBInteger=^GDBInteger;
48 {-}GDBInteger=type integer;{/GDBInteger=Integer;/}
49 
50 PGDBByte=^GDBByte;
51 {-}GDBByte=type byte;{/GDBByte=Byte;/}
52 
53 PGDBLongword=^GDBLongword;
54 {-}GDBLongword=type longword;{/GDBLongword=LongWord;/}
55 
56 PGDBQWord=^GDBQWord;
57 {-}GDBQWord=type QWord;{/GDBQWord=QWord;/}
58 
59 PGDBWord=^GDBWord;
60 {-}GDBWord=type word;{/GDBWord=word;/}
61 
62 PGDBSmallint=^GDBSmallint;
63 {-}GDBSmallint=type smallint;{/GDBSmallint=SmallInt;/}
64 
65 PGDBShortint=^GDBShortint;
66 {-}GDBShortint=type shortint;{/GDBShortint=ShortInt;/}
67 
68 PGDBPointer=^GDBPointer;
69 {-}GDBPointer=type pointer;{/GDBPointer=Pointer;/}
70 
71 PGDBPtrUInt=^GDBPtrUInt;
72 {-}GDBPtrUInt=type PtrUInt;{//}
73 
74 {EXPORT-}
75 GDBPlatformInt=PtrInt;
76 GDBPlatformUInt=PtrUInt;
77 //GDBchar=Char;
78 implementation
79 end.
80 
81 
82