Explorar el Código

* delphi compatible array types

peter hace 23 años
padre
commit
77bb50032c
Se han modificado 1 ficheros con 15 adiciones y 1 borrados
  1. 15 1
      rtl/objpas/objpas.pp

+ 15 - 1
rtl/objpas/objpas.pp

@@ -31,6 +31,17 @@ unit objpas;
        { Ansistring are the default }
        { Ansistring are the default }
        PString = PAnsiString;
        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.
                              Compatibility routines.
 ****************************************************************************}
 ****************************************************************************}
@@ -369,7 +380,10 @@ end.
 
 
 {
 {
   $Log$
   $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
     * regenerated
 
 
   Revision 1.8  2001/10/22 21:19:33  peter
   Revision 1.8  2001/10/22 21:19:33  peter