delphi - 将任何记录转换为字符串并返回？

Question

如何将任何记录类型转换为单个字符串并返回？也许将记录加载到流中并将其作为字符串读取？我使用的记录不会包含任何特殊类型 - 它们只是使用简单的东西，例如 String、Integer、PChar、 DWORD 和 [String] 数组 等，与类或函数无关。

该字符串将进一步保存到各个位置，例如平面文本文件、数据库记录、通过网络发送等。字符串内容可以通过其他方式在这些位置之间传输，例如从文本文件并将其保存到数据库记录中。总的想法是，该字符串将具有足够的兼容性，可以将其保存在任何地方，移动它，并将其加载回其原始状态。我确实知道我需要能够识别记录的类型并相应地分配它，而这部分我不需要帮助。

Answer 1

您可以使用 RTTI 序列化您的记录，从这里您可以使用 XML、JSON 或其他格式来保存记录数据。

如果您不想编写自己的方法来序列化记录，请尝试这些替代方法。

• superobject (使用 TSuperRttiContext 类，您可以将记录序列化为 JSON)
• TKBDynamic
• SynCommons Synopse 的单位。
• XmlSerial Robert Love 的单元(对象和记录序列化以及反序列化为 XML)