Delphi解析修改Json文件，基于superobject.pas（ISuperObject）

时间：2025-04-20 18:35:25

在经过一系列的波折后，还是觉得delphi读取并修改json文件来的方便；

在网络上找到一个delphi的三方库ISuperObject，添加到项目后直接引用就行；

下载地址

ISuperObject中几个常用的函数：

  • function SO(const s: SOString = ‘{}’): ISuperObject; overload; 此函数传入json数据字符串，并返回一个ISuperObject对象，这一般是我们解析json时使用的第一个函数，如jObj := SO(jsonstr)。
  • property O[const path: SOString]: ISuperObject read GetO write PutO; default; 如：jobj.O[‘username’]，此函数被一个ISuperObject对象调用，方括号内的字符串为json中的字段名称，返回一个ISuperObject对象。
  • property S[const path: SOString]: SOString read GetS write PutS; 此函数被一个ISuperObject对象调用，和O[‘username’]不同的是，它返回的是一个SoString，即一个字符串，使用方法 str := jObj.S[‘username’]; 同理的还有其他几个类似的函数，如I[‘age’]返回整数，B[‘isenable’]返回布尔型，A[‘users’]返回一个TSuperArray数组
  • AsString, AsBoolean, AsInteger,AsArray，ISuperObject的函数，用来把ISuperObject转换成相应的数据类型。

演示代码：

//读取json文件

procedure TForm2.Button1Click(Sender: TObject);

var

  rText: TextFile;

  tmp: UTF8String;

begin

  AssignFile(rText, 'C:\Users\admin\Desktop\F.txt');

  reset(rText);

  while not EOF(rText) do

  begin

    readln(rText, tmp);

    Res := Res + tmp;

  end;

  closefile(rText);

  Memo1.Lines.Add(Res);

  application.MessageBox('加载成功！', '提示', MB_OK);

end;
//处理JSON字符串，按照固定结构读取

procedure TForm2.Button2Click(Sender: TObject);

var

  jRet, jUsers: ISuperObject;

  aryUsers: TSuperArray;

  gridStartTime, gridEndTime, resultStartTime, resultEndTime, WindSpeedBorder,

    WindDirectBorder: string;

  po, pof, poh, posp: Tpoint;

  num, count, I, J: integer;

  aryers, arrline, arrbar, arrspeed: TSuperArray;

  Tlist: TStringlist;

begin

  jRet:=TSuperObject.Create(stObject);

  Tlist := TStringlist.Create;

  Tlist.Delimiter := ',';

  jRet := SO(Res);

  gridStartTime := jRet.O['gridStartTime'].AsString();

  Memo1.Lines.Add(gridStartTime);

  gridEndTime := jRet.O['gridEndTime'].AsString();

  Memo1.Lines.Add(gridEndTime);

  resultStartTime := jRet.O['resultStartTime'].AsString();

  Memo1.Lines.Add(resultStartTime);

  resultEndTime := jRet.O['resultEndTime'].AsString();

  Memo1.Lines.Add(resultEndTime);

  WindSpeedBorder := jRet.O['WindSpeedBorder'].AsString();

  Memo1.Lines.Add(WindSpeedBorder);

  WindDirectBorder := jRet.O['WindDirectBorder'].AsString();

  Memo1.Lines.Add(WindDirectBorder);

  aryers := jRet.O['WindDirectLine'].O['coordinates'].AsArray();

  count := aryers.Length;

  for I :=  to count -  do

  begin

    arrline := aryers[I].O['mWindDirectBaseLine'].AsArray();

    for J :=  to arrline.Length -  do

    begin

      // Tlist.DelimitedText := arrline[J].O['p'].AsString();

      // po:=point(strtoint(Tlist[0]),strtoint(Tlist[1]));

      Memo1.Lines.Add(arrline[J].O['p'].AsString());

    end;

    arrbar := aryers[I].O['mWindDirectBars'].AsArray();

    for J :=  to arrbar.Length -  do

    begin

      // Tlist.DelimitedText := arrbar[J].O['f'].O['p'].AsString();

      // pof:=point(strtoint(Tlist[0]),strtoint(Tlist[1]));

      // Tlist.DelimitedText := arrbar[J].O['h'].O['p'].AsString();

      // poh:=point(strtoint(Tlist[0]),strtoint(Tlist[1]));

      Memo1.Lines.Add('f: ' + arrbar[J].O['f'].O['p'].AsString()

          + ' h: ' + arrbar[J].O['h'].O['p'].AsString());

    end;

  end;

  aryers := jRet.O['WindSpeedLine'].O['coordinates'].AsArray();

  count := aryers.Length;

  for I :=  to count -  do

  begin

    arrspeed := aryers[I].AsArray();

    for J :=  to arrspeed.Length -  do

    begin

      // Tlist.DelimitedText := arrspeed[J].O['p'].AsString();

      // posp:=point(strtoint(Tlist[0]),strtoint(Tlist[1]));

      Memo1.Lines.Add(arrspeed[J].O['p'].AsString());

    end;

  end;

  application.MessageBox('处理完成！', '提示', MB_OK);

end;
//修改JSON文件并保存

procedure TForm2.Button3Click(Sender: TObject);

var

  jfields, jitems, jo, jRet: ISuperObject;

  date: string;

  num, count, I, J: integer;

  txt:TextFile;

  aryers, arrline, arrbar, arrspeed: TSuperArray;

begin

  jRet := SO(Res);

  if jRet = nil then

       application.MessageBox('读取失败！', '提示', MB_OK);

//  date := FormatDateTime('yyyy-MM-dd hh:nn:ss', Now());

  jRet.S['gridStartTime'] := date;

  jRet.S['gridEndTime'] := date;

  jRet.S['resultStartTime'] := date;

  jRet.S['resultEndTime'] := date;

  jRet.S['WindSpeedBorder'] := date;

  jRet.S['WindDirectBorder'] := date;

  jRet.I['gridMethod']:=;

  count:=jRet.O['WindDirectLine'].A['coordinates'].Length;

  for I :=  to count -  do

  begin

      num:= jRet.O['WindDirectLine'].A['coordinates'][I].A['mWindDirectBaseLine'].Length;

      for J :=  to num -  do

      begin

        jRet.O['WindDirectLine'].A['coordinates'][I].A['mWindDirectBaseLine'][J].S['p']:=inttostr(I)+' ,'+inttostr(J);

      end;

  end;

  Assignfile(txt,'E:\p.gal');  //指定文件路径

  rewrite(txt);               //创建并打开一个新文件（或覆盖原有文件）

  Writeln(txt,jRet.AsString());

  Closefile(txt);            //关闭打开的文件

  application.MessageBox(Pchar(jRet.O['gridStartTime'].AsString()), '提示', MB_OK);

end;

注意：

  • 读取文件时如果json文件中包含中文格式，那么在读取时必须保证为获取字段为UTF8String类型。
  • jRet.O['WindSpeedLine'].A['coordinates'][0].AsArray().add(jo);//对与数组嵌套的json，可以通过这种方式添加。
  • 读取或者声明的jo := SO();不能用clear()清空，否则add(jo)就会成为空数据。

　　

相关文章