QDAC使用记录-QJson

一：数组创建

var FJson := TQJson.Create;
try
  with FJson.AddArray('Arr') do
  begin
    for i := 0 to 1 do
    begin
      with add do
      begin
        Add('User').AsInteger := i;
        Add('Name').AsString :='name'+IntToStr(i);
      end;
    end;
  end;
  ShowMessage(FJson.AsJson);
finally
  FJson.Free;
end;

结果：

 

 二：数组解析

var
  FJson,FIJson:TQJson;
  i:Integer;
begin
  FJson := TQJson.Create;
  try
    FJson.Parse(Str);//Str即一中组装出来的json串
    if FJson.ItemByName('Arr') <> nil then

    begin
      for FIJson in FJson.ItemByName('Arr') do
        MMO1.Lines.Add(IntToStr(FIJson.IntByPath('User',-1))+'='+FIJson.ValueByPath('Name',''))

    end;

  finally
     FJson.Free;
  end;
end;

结果：