将Record 数组转成jsonstring

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}]