فهرست منبع

* TArray is now in system unit

Michaël Van Canneyt 2 سال پیش
والد
کامیت
ceddc2aec3
2فایلهای تغییر یافته به همراه4 افزوده شده و 5 حذف شده
  1. 3 0
      rtl/inc/objpash.inc
  2. 1 5
      rtl/objpas/objpas.pp

+ 3 - 0
rtl/inc/objpash.inc

@@ -639,6 +639,9 @@ Type
     property Value: Pointer read FValue write FValue;
     property Value: Pointer read FValue write FValue;
   end;
   end;
 
 
+  { Generic array type. 
+    Slightly Less useful in FPC, since dyn array compatibility is at the element level. 
+    But still useful for generic methods and of course Delphi compatibility}
   generic TArray<T> = array of T;
   generic TArray<T> = array of T;
   
   
   TMarshal = class sealed
   TMarshal = class sealed

+ 1 - 5
rtl/objpas/objpas.pp

@@ -68,11 +68,7 @@ interface
        
        
 {$if FPC_FULLVERSION >= 20701}
 {$if FPC_FULLVERSION >= 20701}
 
 
-      { Generic array type. 
-        Slightly Less useful in FPC, since dyn array compatibility is at the element level. 
-        But still useful for generic methods and of course Delphi compatibility}
-      
-      Generic TArray<T> = Array of T;
+     
       
       
       { Generic support for enumerator interfaces. These are added here, because
       { Generic support for enumerator interfaces. These are added here, because
         mode (Obj)FPC does currently not allow the overloading of types with
         mode (Obj)FPC does currently not allow the overloading of types with