frxJSON用法

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

   ]

  }