Bläddra i källkod

rtl: changed TGUIDString to type string

mattias 7 år sedan
förälder
incheckning
97cb60459e
2 ändrade filer med 2 tillägg och 2 borttagningar
  1. 1 1
      packages/rtl/system.pas
  2. 1 1
      packages/rtl/typinfo.pas

+ 1 - 1
packages/rtl/system.pas

@@ -80,7 +80,7 @@ type
     D3: word;
     D4: array[0..7] of byte;
   end;
-  TGUIDString = string; // ToDo: use type string when supported by compiler
+  TGUIDString = type string;
 
   TClass = class of TObject;
 

+ 1 - 1
packages/rtl/typinfo.pas

@@ -251,7 +251,7 @@ type
   public
     TypeInfo: TTypeInfo external name 'typeinfo';
     Flags: NativeInt external name 'flags'; // bit vector, see pf constants above
-    Params: TProcedureParams external name 'params'; // can be null
+    Params: TProcedureParams external name 'params'; // can be null or undefined
     Index: JSValue external name 'index'; // can be undefined
     Getter: String external name 'getter'; // name of field or function
     Setter: String external name 'setter'; // name of field or function