delphi 将 json 字符串导入 FDMemtable

{"ProductID":39,"ProviderName":"Cell-C","ProviderID":3,"ProductName":"CEL R150","FaceValue":15000,"Weight":15000},{"ProductID": 36,"ProviderName":"Virgin","ProviderID":4,"ProductName":"VIR R15","FaceValue":1500,"Weight":1500},{"ProductID":35,"ProviderName":" Virgin","ProviderID":4,"ProductName":"VIR R35","FaceValue":3500,"Weight":3500},{"ProductID":34,"ProviderName":"Virgin","ProviderID": 4,"ProductName":"VIR R50","FaceValue":5000,"Weight":5000}

uses
 System.JSON;

procedure TForm57.FormCreate(Sender: TObject);
var
 oJson: TJSONObject;
 oArr: TJsonArray;
 oPair: TJSONPair;
 i: Integer;
 oProd: TJSONObject;
begin
 FDMemTable1.FieldDefs.Add('ProductID', ftInteger);
 FDMemTable1.FieldDefs.Add('ProviderName', ftString, 20);
 // ....
 FDMemTable1.Active := True;

 oJson := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(Memo1.Lines.Text), 0) as TJSONObject;
 try
   oArr := oJson.Get('Products').JsonValue as TJSONArray;
   for i := 0 to oArr.Count - 1 do begin
     oProd := oArr.Items[i] as TJSONObject;
     FDMemTable1.Append;
     FDMemTable1.FieldByName('ProductID').AsString := oProd.GetValue('ProductID').Value;
     FDMemTable1.FieldByName('ProviderName').AsString := oProd.GetValue('ProviderName').Value;
     // ...
     FDMemTable1.Post;
   end;
 finally
   oJson.Free;
 end;
end;