json主从表

json主从表

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80

//cxg 2021-6-1 主从表json   unit service.tables;   interface   uses   system.JSON.Serializers, system.JSON,   system.Generics.Collections, sysutils, Classes;   type   TMasterTable = record     billid: Integer;     operate: string;   end;     TDetailTable = record     productid: Integer;     productname: string;   end;   var MasterTables: TArray<TMasterTable>; var DetailTables: TArray<TDetailTable>;   function getJson(const url: string): string; procedure setJson(const v: string);   implementation   procedure setJson(const v: string); begin   var jo: TJSONObject := TJSONObject.ParseJSONValue(v) as TJSONObject;   var ja: TJSONArray := TJSONArray(jo.GetValue('主表'));   var s: string := ja.ToString;  //[{"billid":0,"operate":"name0"},{"billid":1,"operate":"name1"}]   var serial: TJsonSerializer := TJsonSerializer.Create;   MasterTables := serial.Deserialize<TArray<TMasterTable>>(s);   s := MasterTables[0].operate;  //name0   serial.Free;   jo.Free; end;   function getJson(const url: string): string; //主从表 get url: /dal/bills/{accountno} begin   try     try       SetLength(MasterTables, 2);      //生成主表数据       var i: Integer;       for i := 0 to 1 do       begin         MasterTables[i].billid := i;         MasterTables[i].operate := 'name' + i.ToString;       end;       SetLength(DetailTables, 2);       for i := 0 to 1 do           //生成从表数据       begin         DetailTables[i].productid := i;         DetailTables[i].productname := 'name' + i.ToString;       end;       var serial: TJsonSerializer := TJsonSerializer.Create;       var jo: TJSONObject := TJSONObject.Create;       var ja: TJSONArray := TJSONObject.ParseJSONValue(serial.Serialize<TArray<TMasterTable>>(MasterTables)) as TJSONArray;       jo.AddPair('主表', ja);       ja := TJSONObject.ParseJSONValue(serial.Serialize<TArray<TDetailTable>>(DetailTables)) as TJSONArray;       jo.AddPair('从表', ja);       Result := jo.ToString; //{"主表":[{"billid":0,"operate":"name0"},{"billid":1,"operate":"name1"}],"从表":[{"productid":0,"productname":"name0"},{"productid":1,"productname":"name1"}]}       jo.free;       serial.free;     except       on E: Exception do       begin         result := '{"异常":"' + e.Message + '"}';       end;     end;   finally     end; end;   end.