此代码支持 Delphi 2007+，使用 QJSON 做为序列化的支持库。你可以自己改为使用其它的 JSON库（注：此文写法未完善，仅为示意）。 使用示例： 如上面的示例，由于写成了 class helper，所以保存到 Json 里，直接调用组件实例的 SaveToJson 就可以了，而从 Json 中恢复则直接调
标签： DFM
将一个字符串格式化为 Delphi DFM 格式的字符串
function StrToDFMStr(S: UnicodeString): UnicodeString; var AHelper: TStringBuilder; ps, ls: PWideChar; L: Integer; AQuoterNeeded: Boolean; const LineLength: Int
DFM->JSON 格式转换
应群友的要求，编写了一个解析 DFM 文件格式，将其转换为 JSON 格式的函数，需要引用 QJSON 和 QString 单元。代码分享给大家，供大家参考： function DFM2Json(AFileName: String): TQJson; var ADFMStream, ATemp: TMemoryStre