Delphi中，TRttiField的FieldType为nil时，如何获取real48和shortstring变量？

本文共计423个文字，预计阅读时间需要2分钟。

我发现Delphi中扩展RTTI功能的一个奇特疏忽（可能是意外的）。我想将所有字段存储到其中包含约1500个不同字段类型的记录类型中。其中一些是real48类型，还有一些是shortstring类型。

我发现我认为Delphi中扩展RTTI功能的一个奇怪的疏忽(可能是故意的).

我想将所有字段转储到其中包含大约1500个不同字段的记录类型中.是的,认真的.

其中一些是real48类型,有些是shorttring,对于这两个,在运行时看起来这些类型的FieldType是nil：

function TRttiField.GetValue(Instance: Pointer): TValue; var ft: TRttiType; begin ft := FieldType; if ft = nil then raise InsufficientRtti; // This fires! TValue.Make(PByte(Instance) + Offset, ft.Handle, Result); end;

如果我愿意假设所有nil-fieldtype字段实际上是real48的,我可以简单地使用偏移量(如果字段宽度为6),则获取real48值.

然而,第二个复杂因素是所有短串(即字符串[30])类型同样受到影响.

有没有人有这两种古代Pascal类型与现代扩展RTTI一起工作？
现在我正在使用一种最好的猜测方法,如果失败了,我就按字段的名称对规则进行硬编码,但是如果有一些技术可以使用,那将会让我在那里不需要编写大量的代码来提取来自我现代化的所有这些旧的pascal文件记录的信息,我将不胜感激.

不幸的是,Real48没有任何类型的信息.

你可以看到,当你尝试编译时：

program Project1; begin TypeInfo(Real48); end.

string [n]语法也是如此.但你可以通过定义自己的字符串类型来修复它：

type string30 = string[30];

仅此一项就不包括记录字段的rtti所以你需要修改/修复rtti,如我在此处所示：stackoverflow.com/a/12687747/587106