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); ...
阅读全文
TOleControl(WebBrowser1).Visible := False 这样就可以隐藏浏览器控件
摘要:TOleControl(WebBrowser1).Visible := False 这样就可以隐藏浏览器控件了。 ---------------------------------------------- RTC三层技术交流,QQ:64445322 作者: 男 crystalmoon (黑夜杀手) ▲▲▲▲▲ - 盒子活跃会员 2017-4-13 14:14:44 8楼:...
阅读全文
RegDataToDataType
摘要:function RegDataToDataType(Value: TRegDataType): Integer; begin case Value of rdString: Result := REG_SZ; rdExpandString: Result := REG_EXPAND_SZ; rdInteger: Result := REG_DWORD; rd...
阅读全文