paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-13 11:49:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

DeclaringUnitName property for RTTI Type.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2023-07-10 16:16:42 -03:00
parent c1f81d7c7f
commit 5aa250f9ee
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/rtl/rtti.pas
View File

@ -269,6 +269,7 @@ type
//FMethods: specialize TArray<TRttiMethod>;
function GetAsInstance: TRttiInstanceType;
function GetAsInstanceExternal: TRttiInstanceExternalType;
function GetDeclaringUnitName: string;
function GetHandle: TTypeInfo;
function GetQualifiedName: String;
protected
@ -310,6 +311,7 @@ type
property AsInstanceExternal: TRttiInstanceExternalType read GetAsInstanceExternal;
property TypeKind: TTypeKind read GetTypeKind;
//property TypeSize: integer read GetTypeSize;
property DeclaringUnitName: string read GetDeclaringUnitName;
property QualifiedName: String read GetQualifiedName;
end;
@ -2088,9 +2090,14 @@ begin
Result := nil;
end;
function TRttiType.GetDeclaringUnitName: String;
begin
Result := Handle.Module.Name;
end;
function TRttiType.GetQualifiedName: String;
begin
Result := Format('%s.%s', [Handle.Module.Name, Name]);
Result := Format('%s.%s', [DeclaringUnitName, Name]);
end;
{ TVirtualInterface }