04 2017 档案
json 2017-04-21 10 17
摘要:jo := SO(); jo.S['tttt'] := 'tttt'; TbSendedTidJson['jo'] := jo; ja := TbSendedTidJson['jo'];//取出来后,增加新的key, TbSendedTidJson的内容也变的 ja.S['bbb'] := 'bbb'; ShowMessage(TbSendedTidJson.AsString); ... 阅读全文
posted @ 2017-04-21 10:17 宝兰 阅读(107) 评论(0) 推荐(0) 编辑
TOleControl(WebBrowser1).Visible := False 这样就可以隐藏浏览器控件
摘要:TOleControl(WebBrowser1).Visible := False 这样就可以隐藏浏览器控件了。 ---------------------------------------------- RTC三层技术交流,QQ:64445322 作者: 男 crystalmoon (黑夜杀手) ▲▲▲▲▲ - 盒子活跃会员 2017-4-13 14:14:44 8楼:... 阅读全文
posted @ 2017-04-13 15:42 宝兰 阅读(644) 评论(0) 推荐(0) 编辑
RegDataToDataType
摘要:function RegDataToDataType(Value: TRegDataType): Integer; begin case Value of rdString: Result := REG_SZ; rdExpandString: Result := REG_EXPAND_SZ; rdInteger: Result := REG_DWORD; rd... 阅读全文
posted @ 2017-04-07 15:25 宝兰 阅读(199) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示