Browse Source

* correct GetIsInstance for TRttiInstanceType

michael 4 years ago
parent
commit
1fc0e8dd10
1 changed files with 6 additions and 0 deletions
  1. 6 0
      packages/rtl/rtti.pas

+ 6 - 0
packages/rtl/rtti.pas

@@ -256,6 +256,7 @@ type
     function GetMetaClassType: TClass;
     function GetMetaClassType: TClass;
   public
   public
     constructor Create(ATypeInfo: PTypeInfo);
     constructor Create(ATypeInfo: PTypeInfo);
+    function GetIsInstance: boolean; override;
     property ClassTypeInfo: TTypeInfoClass read GetClassTypeInfo;
     property ClassTypeInfo: TTypeInfoClass read GetClassTypeInfo;
     property MetaClassType: TClass read GetMetaClassType;
     property MetaClassType: TClass read GetMetaClassType;
   end;
   end;
@@ -766,6 +767,11 @@ begin
   inherited Create(ATypeInfo);
   inherited Create(ATypeInfo);
 end;
 end;
 
 
+function TRttiInstanceType.GetIsInstance: boolean;
+begin
+  Result:=True;
+end;
+
 { TRttiInterfaceType }
 { TRttiInterfaceType }
 
 
 constructor TRttiInterfaceType.Create(ATypeInfo: PTypeInfo);
 constructor TRttiInterfaceType.Create(ATypeInfo: PTypeInfo);