本站于2023年9月4日。收到“大连君*****咨询有限公司”通知
说我们IIS7站长博客，有一篇博文用了他们的图片。
要求我们给他们一张图片6000元。要不然法院告我们
为避免不必要的麻烦，IIS7站长博客，全站内容图片下架、并积极应诉
博文内容全部不再显示，请需要相关资讯的站长朋友到必应搜索。谢谢！
另祝：版权碰瓷诈骗团伙，早日弃暗投明。
相关新闻：借版权之名、行诈骗之实，周某因犯诈骗罪被判处有期徒刑十一年六个月
叹！百花齐放的时代,渐行渐远!
uses System.JSON;
procedure TForm1.Button1Click(Sender: TObject);
var
JSONObject, JSONObject1: TJSONObject; // JSON类
jsonArray: TJSONArray; // JSON数组变量
begin
JSONObject := TJSONObject.Create;
JSONObject.AddPair('TestDate', datetimetostr(now));
jsonArray := TJSONArray.Create;
JSONObject.AddPair('Detail', jsonArray);
JSONObject1 := TJSONObject.Create;
JSONObject1.AddPair('ChannelNo', 'Test');
JSONObject1.AddPair('Value', '100');
jsonArray.Add(JSONObject1);
JSONObject1 := TJSONObject.Create;
JSONObject1.AddPair('ChannelNo', 'Test2');
JSONObject1.AddPair('Value', '50');
jsonArray.Add(JSONObject1);
Memo1.Text := JSONObject.ToJSON;
end;
