|
@@ -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);
|