frxJSON: TfrxJSON;
frxJSONArrayT: TfrxJSONArray;
frxJSONtemp : TfrxJSON;
begin
S := TStringList.Create;
try
S.LoadFromFile('E:\JSON.txt');
finally
Res:= S.Text; //utf8DEcode( )
FreeAndNil(S);
end;
frxJSON := TfrxJSON.Create(Res);
if frxJSON.IsValid then
frxJSONArrayT := TfrxJSONArray.Create(frxJSON.ObjectByName('Detail'));
frxJSONtemp :=TfrxJSON.CreateWeek(frxJSON.ObjectByName('Main'));
Memo1.Lines.Add('Addr:'+frxJSONtemp.ValueByName('Addr'));
for i:= 0 to frxJSONArrayT.Count-1 do
begin
frxJSONtemp:=frxJSONArrayT.Get(i);
self.Memo1.Lines.Add(frxJSONtemp.ValueByName('FMaterialCode'));
self.Memo1.Lines.Add(frxJSONtemp.ValueByName('FMaterialName'));
self.Memo1.Lines.Add(frxJSONtemp.ValueByName('FColorName'));
self.Memo1.Lines.Add(frxJSONtemp.ValueByName('FSizeName'));
self.Memo1.Lines.Add(frxJSONtemp.ValueByName('FNum'));
self.Memo1.Lines.Add(frxJSONtemp.ValueByName('FPrice'));
self.Memo1.Lines.Add(frxJSONtemp.ValueByName('FMoney'));
self.Memo1.Lines.Add(frxJSONtemp.ValueByName('FRemark'));
end;
{
"Main":
{
"Title":"主表",
"Client":"客户:上海李明",
"Storge":"仓库:档口仓库",
"Addr":"送货地址:上海人民广场路37弄21号",
"TotalNum":40,
"TotalMoney":1500
},
"Detail":
[
{
"FMaterialCode":"aaaA",
"FColorName":"红",
"FSizeName":"M",
"FNum":10,
"FPrice":30,
},
{
"FMaterialCode":"款号A",
"FColorName":"黄",
"FSizeName":"M",
"FNum":10,
"FPrice":30,
}
]
}