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