rtl: less hints

packages/rtl/classes.pas

@@ -44,7 +44,7 @@ type
     FList: TFPList;
     FPosition: Integer;
   public
-    constructor Create(AList: TFPList);
+    constructor Create(AList: TFPList); reintroduce;
     function GetCurrent: JSValue;
     function MoveNext: Boolean;
     property Current: JSValue read GetCurrent;
@@ -112,7 +112,7 @@ type
     FList: TList;
     FPosition: Integer;
   public
-    constructor Create(AList: TList);
+    constructor Create(AList: TList); reintroduce;
     function GetCurrent: JSValue;
     function MoveNext: Boolean;
     property Current: JSValue read GetCurrent;
@@ -496,7 +496,7 @@ type
     FComponent: TComponent;
     FPosition: Integer;
   public
-    constructor Create(AComponent: TComponent);
+    constructor Create(AComponent: TComponent); reintroduce;
     function GetCurrent: TComponent;
     function MoveNext: Boolean;
     property Current: TComponent read GetCurrent;

packages/rtl/js.pas

@@ -461,11 +461,11 @@ type
     constructor new (buffer : TJSArrayBuffer);
     constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
     constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
-    class function from(aValue : jsValue) : TJSInt8Array;
-    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt8Array;
-    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt8Array;
-    class function _of(aValue : jsValue) : TJSInt8Array; varargs;external name 'of';
-    procedure _set(anArray : Array of ShortInt); external name 'set';
+    class function from(aValue : jsValue) : TJSInt8Array; reintroduce;
+    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt8Array; reintroduce;
+    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt8Array; reintroduce;
+    class function _of(aValue : jsValue) : TJSInt8Array; varargs; external name 'of'; reintroduce;
+    procedure _set(anArray : Array of ShortInt); external name 'set'; reintroduce;
     procedure _set(anArray : Array of ShortInt; anOffset : NativeInt); external name 'set';
     Property values[Index : Integer] : Shortint Read getTypedValue Write setTypedValue; default;
   end;
@@ -481,11 +481,11 @@ type
     constructor new (buffer : TJSArrayBuffer);
     constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
     constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
-    class function from(aValue : jsValue) : TJSUInt8Array;
-    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8Array;
-    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8Array;
-    class function _of(aValue : jsValue) : TJSUInt8Array; varargs;external name 'of';
-    procedure _set(anArray : Array of Byte); external name 'set';
+    class function from(aValue : jsValue) : TJSUInt8Array; reintroduce;
+    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8Array; reintroduce;
+    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8Array; reintroduce;
+    class function _of(aValue : jsValue) : TJSUInt8Array; varargs; external name 'of'; reintroduce;
+    procedure _set(anArray : Array of Byte); external name 'set'; reintroduce;
     procedure _set(anArray : Array of Byte; anOffset : NativeInt); external name 'set';
     Property values[Index : Integer] : Byte Read getTypedValue Write setTypedValue; default;
   end;
@@ -501,11 +501,11 @@ type
     constructor new (buffer : TJSArrayBuffer);
     constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
     constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
-    class function from(aValue : jsValue) : TJSUInt8ClampedArray;
-    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8ClampedArray;
-    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8ClampedArray;
-    class function _of(aValue : jsValue) : TJSUInt8ClampedArray; varargs;external name 'of';
-    procedure _set(anArray : Array of Byte); external name 'set';
+    class function from(aValue : jsValue) : TJSUInt8ClampedArray; reintroduce;
+    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8ClampedArray; reintroduce;
+    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8ClampedArray; reintroduce;
+    class function _of(aValue : jsValue) : TJSUInt8ClampedArray; varargs; external name 'of'; reintroduce;
+    procedure _set(anArray : Array of Byte); external name 'set'; reintroduce;
     procedure _set(anArray : Array of Byte; anOffset : NativeInt); external name 'set';
     Property values[Index : Integer] : Byte Read getTypedValue Write setTypedValue; default;
   end;
@@ -521,11 +521,11 @@ type
     constructor new (buffer : TJSArrayBuffer);
     constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
     constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
-    class function from(aValue : jsValue) : TJSInt16Array;
-    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt16Array;
-    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt16Array;
-    class function _of(aValue : jsValue) : TJSInt16Array; varargs; external name 'of';
-    procedure _set(anArray : Array of SmallInt); external name 'set';
+    class function from(aValue : jsValue) : TJSInt16Array; reintroduce;
+    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt16Array; reintroduce;
+    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt16Array; reintroduce;
+    class function _of(aValue : jsValue) : TJSInt16Array; varargs; external name 'of'; reintroduce;
+    procedure _set(anArray : Array of SmallInt); external name 'set'; reintroduce;
     procedure _set(anArray : Array of SmallInt; anOffset : NativeInt); external name 'set';
     Property values[Index : Integer] : SmallInt Read getTypedValue Write setTypedValue; default;
   end;
@@ -541,11 +541,11 @@ type
     constructor new (buffer : TJSArrayBuffer);
     constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
     constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
-    class function from(aValue : jsValue) : TJSUInt16Array;
-    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt16Array;
-    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt16Array;
-    class function _of(aValue : jsValue) : TJSUInt16Array; varargs; external name 'of';
-    procedure _set(anArray : Array of Word); external name 'set';
+    class function from(aValue : jsValue) : TJSUInt16Array; reintroduce;
+    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt16Array; reintroduce;
+    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt16Array; reintroduce;
+    class function _of(aValue : jsValue) : TJSUInt16Array; varargs; external name 'of'; reintroduce;
+    procedure _set(anArray : Array of Word); external name 'set'; reintroduce;
     procedure _set(anArray : Array of Word; anOffset : NativeInt); external name 'set';
     Property values[Index : Integer] : Word Read getTypedValue Write setTypedValue; default;
   end;
@@ -561,11 +561,11 @@ type
     constructor new (buffer : TJSArrayBuffer);
     constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
     constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
-    class function from(aValue : jsValue) : TJSInt32Array;
-    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt32Array;
-    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt32Array;
-    class function _of(aValue : jsValue) : TJSInt32Array; varargs;external name 'of';
-    procedure _set(anArray : Array of LongInt); external name 'set';
+    class function from(aValue : jsValue) : TJSInt32Array; reintroduce;
+    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt32Array; reintroduce;
+    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt32Array; reintroduce;
+    class function _of(aValue : jsValue) : TJSInt32Array; varargs;external name 'of'; reintroduce;
+    procedure _set(anArray : Array of LongInt); external name 'set'; reintroduce;
     procedure _set(anArray : Array of LongInt; anOffset : NativeInt); external name 'set';
     Property values[Index : Integer] : longint Read getTypedValue Write setTypedValue; default;
   end;
@@ -581,11 +581,11 @@ type
     constructor new (buffer : TJSArrayBuffer);
     constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
     constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
-    class function from(aValue : jsValue) : TJSUInt32Array;
-    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt32Array;
-    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt32Array;
-    class function _of(aValue : jsValue) : TJSUInt32Array; varargs; external name 'of';
-    procedure _set(anArray : Array of Cardinal); external name 'set';
+    class function from(aValue : jsValue) : TJSUInt32Array; reintroduce;
+    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt32Array; reintroduce;
+    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt32Array; reintroduce;
+    class function _of(aValue : jsValue) : TJSUInt32Array; varargs; external name 'of'; reintroduce;
+    procedure _set(anArray : Array of Cardinal); external name 'set'; reintroduce;
     procedure _set(anArray : Array of Cardinal; anOffset : NativeInt); external name 'set';
     Property values[Index : Integer] : LongWord Read getTypedValue Write setTypedValue; default;
   end;
@@ -601,12 +601,12 @@ type
     constructor new (buffer : TJSArrayBuffer);
     constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
     constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
-    class function from(aValue : jsValue) : TJSFloat32Array;
-    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat32Array;
-    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat32Array;
-    class function _of(aValue : jsValue) : TJSFloat32Array; varargs;
-    procedure _set(anArray : Array of Double); external name 'set';
-    procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set';
+    class function from(aValue : jsValue) : TJSFloat32Array; reintroduce;
+    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat32Array; reintroduce;
+    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat32Array; reintroduce;
+    class function _of(aValue : jsValue) : TJSFloat32Array; varargs; reintroduce;
+    procedure _set(anArray : Array of Double); external name 'set'; reintroduce;
+    procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set'; reintroduce;
     Property values[Index : Integer] : Float32 Read getTypedValue Write setTypedValue; default;
   end;
 
@@ -621,12 +621,12 @@ type
     constructor new (buffer : TJSArrayBuffer);
     constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
     constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
-    class function from(aValue : jsValue) : TJSFloat64Array;
-    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat64Array;
-    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat64Array;
-    class function _of(aValue : jsValue) : TJSFloat64Array; varargs;
-    procedure _set(anArray : Array of Double); external name 'set';
-    procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set';
+    class function from(aValue : jsValue) : TJSFloat64Array; reintroduce;
+    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat64Array; reintroduce;
+    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat64Array; reintroduce;
+    class function _of(aValue : jsValue) : TJSFloat64Array; varargs; reintroduce;
+    procedure _set(anArray : Array of Double); external name 'set'; reintroduce;
+    procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set'; reintroduce;
     Property values[Index : Integer] : Float64 Read getTypedValue Write setTypedValue; default;
   end;
 

packages/rtl/system.pas

@@ -178,7 +178,7 @@ type
     function _AddRef: Integer; virtual;
     function _Release: Integer; virtual;
   public
-    constructor Create(const aController: IUnknown);
+    constructor Create(const aController: IUnknown); reintroduce;
     property Controller: IUnknown read GetController;
   end;
 

packages/rtl/sysutils.pas

@@ -592,7 +592,7 @@ function Supports(const AClass: TClass; const IID: TGuidString): Boolean; overlo
 
 function TryStringToGUID(const s: string; out Guid: TGuid): Boolean;
 function StringToGUID(const S: string): TGuid;
-function GUIDToString(const guid: TGuid): string;
+function GUIDToString(const guid: TGuid): string; reintroduce;
 function IsEqualGUID(const guid1, guid2: TGuid): Boolean;
 function GuidCase(const guid: TGuid; const List: array of TGuid): Integer;