paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 22:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed TRttiRecordType.ResolveProperties (records do not have a published section)

Browse Source
This commit is contained in:
Lipinast Lekrisov 2024-11-03 20:28:09 +00:00
parent f7bcabd956
commit 2469fe8d70
1 changed files with 3 additions and 4 deletions

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

@ -6453,13 +6453,12 @@ var
begin
List:=Nil;
FPropertiesResolved:=True;
if FUsePublishedOnly then
aCount:=GetPropListEx(FTypeinfo,List,[vcPublished])
else
aCount:=GetPropListEx(FTypeinfo,List);
Exit;
aCount:=GetPropListEx(FTypeinfo,List);
PropCount:=aCount;
J := 0;
FPropertiesResolved:=True;
try
SetLength(FProperties,aCount);
For I:=0 to aCount-1 do