paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 19:45:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add IsInstanceOf

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-09 11:28:53 +01:00
parent 972b961f2b
commit a9ff6272f6
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -229,6 +229,7 @@ type
function GetArrayElement(AIndex: SizeInt): TValue; function GetArrayElement(AIndex: SizeInt): TValue;
procedure SetArrayElement(AIndex: SizeInt; constref AValue: TValue); procedure SetArrayElement(AIndex: SizeInt; constref AValue: TValue);
function IsType(aTypeInfo: PTypeInfo): boolean; inline; function IsType(aTypeInfo: PTypeInfo): boolean; inline;
function IsInstanceOf(aClass : TClass): boolean; inline;
function TryCast(aTypeInfo: PTypeInfo; out aResult: TValue; const aEmptyAsAnyType: Boolean = True): Boolean; function TryCast(aTypeInfo: PTypeInfo; out aResult: TValue; const aEmptyAsAnyType: Boolean = True): Boolean;
function Cast(aTypeInfo: PTypeInfo; const aEmptyAsAnyType: Boolean = True): TValue; overload; function Cast(aTypeInfo: PTypeInfo; const aEmptyAsAnyType: Boolean = True): TValue; overload;
{$ifndef NoGenericMethods} {$ifndef NoGenericMethods}
@ -1844,6 +1845,19 @@ begin
Result:=IsDateTimeType(TypeInfo); Result:=IsDateTimeType(TypeInfo);
end; end;
function TValue.IsInstanceOf(aClass : TClass): boolean;
var
Obj : TObject;
begin
Result:=IsObject;
if not Result then
exit;
Obj:=AsObject;
Result:=Assigned(Obj) and Obj.InheritsFrom(aClass);
end;
{$ifndef NoGenericMethods} {$ifndef NoGenericMethods}
generic function TValue.IsType<T>:Boolean; generic function TValue.IsType<T>:Boolean;
begin begin