Missing methods using DefineClassByRTTI in Delphi 13

BIZ TMS Scripter
1

When registering a class at run-time using DefineClassByRTTI some methods are not registered and I can't figure out what the difference is between these methods and the ones that are successfully registered. This happens only since Delphi 13 (32-bit and 64-bit). Delphi 12, 32-bit: works as expected.
Project: Windows VCL 64-bit
Tested scripter versions: 7.37 and 8.1

// Class methods:
TMyClass = class(TDataModule)
public
[...]
function LoadRawDataInfo(RawData, EntityData: TFDMemTable; Entity: TEntity; Uuid, FileFilter: string): Boolean; // not registered
function LoadRawDataInfoActual(RawData, MeasData, CharData: TFDMemTable; Uuid, FileFilter: string): Boolean; // registered as expected
[...]
end;

// registration
Scripter.DefineClassByRTTI(TMyClass);

Any ideas?

2

The difference seems to be the parameter of type TEntity, maybe it is a type not supported by Scripter.

But it would be easier if you could send us a project reproducing the issue so we can investigate it better.

3

I was suspecting the same but the same code works in Delphi 12.

type
TEntity = (etyUnknown = 0, etyPart = 1, etyCharacteristic = 2, etyMeasurement = 3, etyActual = 4, etyCatalog = 5,
etyStatistics = 6, etyExternal = 7, etyRawData = 8, etyPlan = 9{, etyOrder = 10}, etyReport = 11,
etyCorrelation = 12);

4

The project has more than 1 million code lines. The described class has 8000 lines. I really don't know how to extract something that will be compilable at your end.

5

Scratch that! Delphi version was not the only difference.
The root cause was a change in type TEntity - thanks for the hint, Wagner!
The working version has enum values with consecutive values. The non-working version has that one value which was commented out (etyOrder).

6

Correct, Delphi doesn't emit RTTI information for enumerated types that have explicit values set (meaning not consecutive and starting with 0).

So TMS Scripter can't know anything about TEntity type to properly handle it.