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