var jsonobject: tjsonobject; // json類
i: integer; // 迴圈變數
temp: string; // 臨時使用變數
jsonarray: tjsonarray; // json陣列變數
begin
:= jsonstring;
if trim(memo1.text) = '' then
showmessage('要解析資料不能為空！')
else
begin
jsonobject := nil;
tryjsonobject := tjsonobject.parsejsonvalue(trim(memo1.text)) as tjsonobject;
if jsonobject.count > 0 then
begin
memo2.lines.add('遍歷json資料：' + #13#10);
memo2.lines.add('json資料數量：' + inttostr(jsonobject.count));
for i := 0 to jsonobject.count - 1 do
begin
if i = 0 then
temp := jsonobject.get(i).tostring + #13#10
else
temp := temp + jsonobject.get(i).tostring + #13#10;
end;
memo2.lines.add(temp);
memo2.lines.add('------------------------------');
memo2.lines.add('按元素解析json資料：' + #13#10);
temp := 'value = ' + jsonobject.values['value'].tostring + #13#10;
memo2.lines.add(temp);
// json陣列
jsonarray := tjsonarray(jsonobject.getvalue('children'));
;if jsonarray.count > 0 then
begin
// 得到json陣列字串
temp := 'children = ' + jsonobject.getvalue('children').tostring + #13#10;
// 迴圈取得json陣列中每個元素
for i := 0 to jsonarray.size - 1 do
begin
temp := temp + inttostr(i + 1) + ' : ' + jsonarray.items[i].findvalue('label').tostring + #13#10;
end;
end;
memo2.lines.add(temp);
endelse
begin
temp := '沒有資料！';
memo2.lines.add(temp);
end;
finally
jsonobject.free;
end;
end;
end;
mysql省市聯動 sql全國 省市 聯動級聯
下面是程式設計之家 jb51.cc 通過網路收集整理的 片段。h 301 1 insert into province pcode,pname,nationcode values 110000,北京市 100000 insert into province pcode,nationcode valu...
全國省市縣資料爬蟲
專案需要全國省市縣資料，網上找了一圈發現要麼過時要麼收費，於是花點時間自己寫了個爬蟲爬了些基礎資料，基本上夠用了，資料是從國家統計局爬來的，目前更新到2019年，如下 s.mount http httpadapter max retries 2 重試次數 r s.get url,headers he...
全國省市區資料SQL 省市區
drop table if exists provinces create table provinces id int 11 not null auto increment,provinceid varchar 20 not null,province varchar 50 not null,pr...