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 gzctnrvectortypes; 20 {$INCLUDE def.inc} 21 interface 22 uses uzbmemman,{uzbtypesbase,}sysutils,{uzbtypes,}typinfo; 23 type 24 {Export+} 25 itrec=packed record 26 itp:{-}PPointer{/Pointer/}; 27 itc:Integer; 28 end; 29 PTArrayIndex=^TArrayIndex; 30 TArrayIndex=Integer; 31 {Export-} 32 implementation 33 begin 34 end. 35