paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 18:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add TRttiNamedObject.Handle property of which the getter needs to be overridden in each sub class

Browse Source 
git-svn-id: trunk@37401 -
This commit is contained in:
svenbarth 2017-10-05 21:06:47 +00:00
parent 31c9214884
commit 5c85e94919
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

@ -163,8 +163,10 @@ type
TRttiNamedObject = class(TRttiObject)
protected
function GetName: string; virtual;
function GetHandle: Pointer; virtual; abstract;
public
property Name: string read GetName;
property Handle: Pointer read GetHandle;
end;
{ TRttiType }
@ -178,6 +180,7 @@ type
protected
FTypeData: PTypeData;
function GetName: string; override;
function GetHandle: Pointer; override;
function GetIsInstance: boolean; virtual;
function GetIsManaged: boolean; virtual;
function GetIsOrdinal: boolean; virtual;
@ -270,6 +273,7 @@ type
protected
function GetVisibility: TMemberVisibility; override;
function GetName: string; override;
function GetHandle: Pointer; override;
public
constructor create(AParent: TRttiType; APropInfo: PPropInfo);
function GetValue(Instance: pointer): TValue;
@ -1616,6 +1620,11 @@ begin
Result:=FPropInfo^.Name;
end;
function TRttiProperty.GetHandle: Pointer;
begin
Result := FPropInfo;
end;
constructor TRttiProperty.create(AParent: TRttiType; APropInfo: PPropInfo);
begin
inherited create(AParent);
@ -1821,6 +1830,11 @@ begin
Result:=FTypeInfo^.Name;
end;
function TRttiType.GetHandle: Pointer;
begin
Result := FTypeInfo;
end;
constructor TRttiType.create(ATypeInfo: PTypeInfo);
begin
inherited create();