Closed TTomas closed 3 months ago
Thanks a lot.
See my comment above.
About nested type names, in ContextFromRtti this code works great for me. Add fNestedId: integer in Class protected, needed if different records/arrays have same nested field name. Nested record have name TCatNested1 and array TCatsNested2
// set typName/typAsName
if typName = '' then
if rtti <> nil then
begin
+ if rcfWithoutRtti in rtti.Flags then
+ typName := 'T'+parentName+IntToStr(InterlockedIncrement(fNestedId))
+ else
typName := rtti.Name
end
else
typName := TYPES_LANG[lngDelphi, typ];
I will now review the code after merging.
Thanks a lot for all this debugging and sharing !
Comments in code.