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

rtti: added TRttiType.GetQualifiedName, issue 38917, from henrique

Browse Source
This commit is contained in:
mattias 2021-05-21 11:41:48 +00:00
parent b44be85b81
commit adb8e064c1
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl/rtti.pas
View File

@ -240,6 +240,7 @@ type
FTypeInfo: TTypeInfo;
//FMethods: specialize TArray<TRttiMethod>;
function GetAsInstance: TRttiInstanceType;
function GetQualifiedName: String;
protected
function GetName: string; override;
//function GetHandle: Pointer; override;
@ -278,6 +279,7 @@ type
property AsInstance: TRttiInstanceType read GetAsInstance;
property TypeKind: TTypeKind read GetTypeKind;
//property TypeSize: integer read GetTypeSize;
property QualifiedName: String read GetQualifiedName;
end;
TRttiTypeClass = class of TRttiType;
@ -1719,6 +1721,11 @@ begin
Result := nil;
end;
function TRttiType.GetQualifiedName: String;
begin
Result := Format('%s.%s', [Handle.Module.Name, Name]);
end;
{ TVirtualInterface }
constructor TVirtualInterface.Create(InterfaceTypeInfo: Pointer); assembler;