Delphi自代的JSON类TJSONObject

相关资料：

https://download.csdn.net/download/zhujianqiangqq/56461664        代码包下载 

实例代码：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs
  ,System.JSON //使用JSON就要引入这个
  ,Vcl.StdCtrls
  ;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  oJSON: TJSONObject;
  I: Integer;
  oJSONArray: TJSONArray;
  oJSONPair: TJSONPair;
begin
  oJSON := TJSONObject.ParseJSONValue(Trim('{"code":100,"state":"true","data":["hero","npc","pet"]}')) as TJSONObject;
  //json节点数
  Memo1.Lines.Add(IntToStr(oJSON.Count)); //3
  //使用Index取出节点的“名字”“值”
  for I:=0 to oJSON.count-1 do
  begin
    Memo1.Lines.Add(oJSON.Get(I).JsonString.toString + ' = ' +
                    oJSON.Get(I).JsonValue.ToString);
                    //"code" = 100  //"state" = "true"  //"data" = ["hero","npc","pet"]
  end;
  //获得节点字符串
  Memo1.Lines.Add(oJSON.Get('state').ToJSON);//"state":"true"
  //使用name取出节点的“名字”“值”
  Memo1.Lines.Add(oJSON.Get('state').JsonString.Value); //state
  Memo1.Lines.Add(oJSON.Get('state').JsonValue.Value);//true
  Memo1.Lines.Add(oJSON.Get('state').JsonString.ToString);//"state"
  Memo1.Lines.Add(oJSON.Get('state').JsonValue.ToString); //"true"
  //使用name取出节点的“值”
  Memo1.Lines.Add(oJSON.GetValue('state').ToString);//"true"
  //修改节点的“值”
  oJSON.Get('state').JsonValue := TJSONString.Create('dddd');
  //移除一个节点
  oJSON.RemovePair('state');
  //增加一个节点
  oJSON.AddPair('state', 'eeeeee');
  //遍历json数组
  oJSONArray := TJSONArray(oJSON.GetValue('data'));
  for I:=0 to oJSONArray.Size - 1 do
  begin
    Memo1.Lines.Add(oJSONArray.Items[I].Value); //hero  //npc  //pet
  end;
  //使用index获取节点
  oJSONPair := oJSON.Pairs[0];
  Memo1.Lines.Add(oJSONPair.JsonString.Value);//code
  Memo1.Lines.Add(oJSONPair.JSONValue.Value);//100
  Memo1.Lines.Add(oJSONPair.JsonString.ClassName);//TJSONString
  Memo1.Lines.Add(oJSONPair.JsonValue.ClassName);//TJSONNumber
  //如果你没有在最后释放，也不会出错，不过会不会被骂就不知道了！可别说我没加TRY，我这么写是为了整齐好看。
  oJSON.Free;
end;

end.