mORMot JSon 使用（生成）
procedure TForm1.btn4Click(Sender: TObject); const FieldName: array[1..3] of string = ('姓名','单位','地址'); FielValue: array[1..3] of string = ('张三','华为','广州'); var blockCount, FieldCount, i, j: Integer; Doc, DocBlock, DocField: TDocVariantData; v1, Data: variant; begin Doc.Init; Doc.I['blockCount'] := 3; for i := 1 to 3 do begin DocBlock.Init; DocBlock.I['FieldCount'] := i; for j := 1 to i do begin DocField.Init; V1 := _Json(WideStringToUTF8(Format('{"Name":"%s","Value":["%s","%s","%s"]}', [ FieldName[j], FielValue[j] + '_1', FielValue[j] + '_2', FielValue[j] + '_3' ] ))); DocBlock.A_['fields']^