将一个字符串格式化为 Delphi DFM 格式的字符串

 

DFM->JSON 格式转换

应群友的要求,编写了一个解析 DFM 文件格式,将其转换为 JSON 格式的函数,需要引用 QJSON 和 QString 单元。代码分享给大家,供大家参考:

用法:

一个转换结果示例: