技术笔记
delphi读取json本地文件及tree添加元素
 moons   2020-08-21 14:35:54   169
专栏分类: PHP
    // 获取出来本地的保存文件
    procedure TMainForm._get_list();
    var
      jo,m:ISuperObject;
      i,k:Integer;
      tt,childitem:TSuperArray;
      s:string;
      lst,strlist:TStringList;
      // 解析到tree中
      node1, subnode1: TTreeNode;
    begin
      lst := TStringList.Create;
      strlist := TStringList.Create;
      strlist := open_file();
      jo := SO(strlist.Text);
      tt := jo['web'].AsArray;
      tv1.Selected := nil;
      for i := 0 to tt.Length - 1 do
      begin
        s := tt[i]['name'].AsString;
        node1 := tv1.Items.Add(nil, s);
        childitem := tt[i]['list'].AsArray;
        for k := 0 to childitem.Length - 1 do
        begin
          tv1.Items.AddChildObject(node1, childitem[k]['name'].AsString, nil);
        end;
      end;
      lst.Free;
    end;
Copyright © mos360.cn By Moons Soft Studio 百度统计