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