将Record 数组转成jsonstring

最新推荐文章于 2025-09-24 13:29:19 发布

原创最新推荐文章于 2025-09-24 13:29:19 发布 · 2.6k 阅读

0 ·

CC 4.0 BY-SA版权

delphi jsonstri 专栏收录该内容

1 篇文章

订阅专栏

本文介绍如何使用Pascal语言将自定义记录类型的数组转换为JSON字符串格式，并通过示例代码展示了具体的实现过程。

type

Flola =record

Lo,la :double;

end;

uses superobject;

function GetJsonString:string;

var

Flola:array of Tlola;

jsResRecord,jsOperation :ISuperObject ;

begin

SetLength(Flola,2);
Flola[0].Lo :=104.33;
Flola[0].la := 30.22;
Flola[1].Lo :=105.33;
Flola[1].la := 31.22;
jsResRecord := SO();
jsOperation := SA([]);
jsResRecord.D['lo'] := Flola[0].Lo;
jsResRecord.D['la'] := Flola[0].la ;
jsOperation.AsArray.Add(jsResRecord);

jsResRecord := SO();
jsResRecord.D['lo'] := Flola[1].Lo;
jsResRecord.D['la'] := Flola[1].la;
jsOperation.AsArray.Add(jsResRecord);

result := jsOperation.AsString

end;

// 运行结果：[{"lo":104.33,"la":30.22},{"lo":105.33,"la":31.22}]