一 用Delphi10 3 建立一條JSON資料

2022-02-04 12:13:37 字數 1184 閱讀 1312

一、用delphi10.3構造乙個json資料,非常之容易,**如下:

uses

system.json;

procedure

tform1.button1click(sender: tobject);

varm_object, m_json1, m_json2: tjsonobject;

m_jsonarray: tjsonarray;

begin

m_object := tjsonobject.create;

try//

json陣列

m_jsonarray := tjsonarray.create

;

//陣列成員一

m_json1 := tjsonobject.create

; m_json1.addpair('姓名

', tjsonstring.create('張三'

)); m_json1.addpair('成績

', tjsonnumber.create(75.5

)); m_jsonarray.add(m_json1);

//陣列成員二

m_json2 := tjsonobject.create

; m_json2.addpair('姓名

', tjsonstring.create('李四'

)); m_json2.addpair('成績

', tjsonnumber.create(21.7

)); m_jsonarray.add(m_json2);

//json物件

m_object.addpair('五班'

, m_jsonarray);

//輸出

memo1.lines.clear;

memo1.lines.add(m_object.tostring);

finally

m_object.free;

end;end;

二、輸出結果如下:  

建立函式索引優化一條SQL

開發發來一條sql讓優化select distinct oi.customer id,oi.order id,oi.create time,1 type from t to order info oi left join t to consign pymt record cpr on oi.orde...

jenkins用docker安裝踩坑一條龍

經過長時間的摸索,在jenkins上面已經踩了兩天的坑 先說一下我的歷程 jenkins的安裝方法有很多種,可能很多博主採取的方法不一樣 我嘗試了各種方法 最後選擇了docker的安裝 jenkins有很多地方的配置都是國外的源,所以會導致外掛程式等內部功能不好用 這裡專門寫一下對於docker的安...

mybatis 用 IN 批量查詢 只返回一條資料

這個問題網上大多數是從其他角度 比如怎麼正確使用mybatis的標籤講的。我自己遇到問題的時候確定自己使用標籤沒問題,但執行結果還是超出期望。直接說結論吧。如果xml中寫的是 listgetlistbymsgids param msg ids listmsg ids xml中sql為 簡化了 部分 ...