遍历TJsonObject

遍历TJsonObject

uses   fpjson, jsonparser, core.json;

procedure TForm1.Button1Click(Sender: TObject);
var jo: tjsono;
  i:integer;
begin
  jo := so('{"goodsid":"666"}');
  for i:=0 to jo.Count -1 do
  begin
   memo1.Lines.add(jo.Names[i]);
   if jo.Items[i].JSONType = jtString then
     memo1.lines.Add('string');
   memo1.lines.add(jo.Items[i].Value);
  end;
end;