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

* Delphi-compatible ToString for TRttiType. Patch from Lipinast Lekrisov

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-17 17:47:36 +01:00
parent 98a7fe6204
commit 5a6b4ed8e4
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -392,6 +392,7 @@ type
function GetMethods: TRttiMethodArray; virtual; overload; function GetMethods: TRttiMethodArray; virtual; overload;
function GetMethods(const aName: string): TRttiMethodArray; overload; virtual; function GetMethods(const aName: string): TRttiMethodArray; overload; virtual;
function GetMethod(const aName: String): TRttiMethod; virtual; function GetMethod(const aName: String): TRttiMethod; virtual;
function ToString : RTLString; override;
property IsInstance: boolean read GetIsInstance; property IsInstance: boolean read GetIsInstance;
property IsManaged: boolean read GetIsManaged; property IsManaged: boolean read GetIsManaged;
property IsOrdinal: boolean read GetIsOrdinal; property IsOrdinal: boolean read GetIsOrdinal;
@ -7508,6 +7509,11 @@ begin
Result := Nil; Result := Nil;
end; end;
function TRttiType.ToString: RTLString;
begin
Result:=Name;
end;
function TRttiType.GetMethods(const aName: string): TRttiMethodArray; function TRttiType.GetMethods(const aName: string): TRttiMethodArray;
var var
methods: specialize TArray<TRttiMethod>; methods: specialize TArray<TRttiMethod>;