2
0
Эх сурвалжийг харах

* delphi compatible array types

peter 23 жил өмнө
parent
commit
77bb50032c
1 өөрчлөгдсөн 15 нэмэгдсэн , 1 устгасан
  1. 15 1
      rtl/objpas/objpas.pp

+ 15 - 1
rtl/objpas/objpas.pp

@@ -31,6 +31,17 @@ unit objpas;
        { Ansistring are the default }
        PString = PAnsiString;
 
+       { array types }
+       IntegerArray  = array[0..$effffff] of Integer;
+       TIntegerArray = IntegerArray;
+       PIntegerArray = ^IntegerArray;
+       PointerArray  = array [0..512*1024*1024-2] of Pointer;
+       TPointerArray = PointerArray;
+       PPointerArray = ^PointerArray;
+{$ifdef HASINTF}
+       TBoundArray = array of integer;
+{$endif HASINTF}
+
 {****************************************************************************
                              Compatibility routines.
 ****************************************************************************}
@@ -369,7 +380,10 @@ end.
 
 {
   $Log$
-  Revision 1.9  2002-01-06 21:59:13  peter
+  Revision 1.10  2002-01-25 17:41:25  peter
+    * delphi compatible array types
+
+  Revision 1.9  2002/01/06 21:59:13  peter
     * regenerated
 
   Revision 1.8  2001/10/22 21:19:33  peter