Delphi:解析未知结构的记录

Question

有没有一种方法可以获取记录并以编程方式遍历其所有字段，而无需显式执行“Record.somefield”？

我想要做的是一个通用函数，将记录保存/加载为 INI 文件，以便我可以从记录结构中添加或删除字段，而不必在每次删除或添加字段时重写保存/加载函数记录下来。

换句话说，我想以这样的方式进行迭代(伪代码):

THuman = 记录
  年龄:整数；
  国家:字符串；
结尾;
...
myPerson: THuman;
...
    myPerson 中的 foreach 字段
    开始
      如果 Field.value 是 String 则 ini.WriteString( 'Group', Field.Name, Field.value );
      如果 Field.value 是整数则 ini.WriteInteger( 'Group', Field.Name, Field.value );
    结尾;

顺便说一句，我想这样做的原因是因为使用无界字符串时我无法保存键入的文件。这些文件是人类可读的，这对我来说也是有益的。所以我保存它们和 INI 文件。

Answer 1

没有机会。记录没有附加运行时类型信息。如果您使用具有已发布属性的类，则可以查看 jvcl 中的 TApplicationStorage/TFormStorage 组件、Delphi DFM 流系统和各种 Internet 站点的示例。