摘要: 源码下载地址:https://download.csdn.net/download/redhat588/11798294 Delphi xe 10.3.2 for windows 7 环境编译通过! 测式需要先注册百度API账号,拿到API KEY 和Secret Key后才能获取Token值 第一 阅读全文
posted @ 2019-09-21 15:21 redhat588 阅读(990) 评论(0) 推荐(1) 编辑
摘要: 一、不想序列化某个类中字段。 解决方案很简单,但隐藏得很好。JSONMarshalled对于不想序列化或反序列化的字段,您应该将class 属性设置为 False。 type TPerson = class private FName: string; FSurname: string; FHeig 阅读全文
posted @ 2021-11-04 09:37 redhat588 阅读(5) 评论(0) 推荐(0) 编辑
摘要: /* 设备状况监控 */ // $(document).ready(function () { // 基于准备好的dom,初始化echarts实例 var myChart = echarts.init(document.querySelector(".mes995 .chart")); // 2. 阅读全文
posted @ 2021-10-08 16:13 redhat588 阅读(113) 评论(0) 推荐(0) 编辑
摘要: /* 近1个月安装服务城市TOP10 */ // $(document).ready(function () { // 基于准备好的dom,初始化echarts实例 var myChart = echarts.init(document.querySelector(".mes993 .chart") 阅读全文
posted @ 2021-10-07 16:47 redhat588 阅读(5) 评论(0) 推荐(0) 编辑
摘要: <script> (function (fn) { fn(); setInterval(fn, 1000); }) (function () { var dt = new Date(); const month = new Date().getMonth()+1 document.querySele 阅读全文
posted @ 2021-10-06 16:28 redhat588 阅读(12) 评论(0) 推荐(0) 编辑
摘要: 通过 老虾米 代码,编译通过!但TFORM下就没有成功!有知道 的能说明一下吗? 附源码下载地址: 阅读全文
posted @ 2021-09-10 10:40 redhat588 阅读(79) 评论(2) 推荐(0) 编辑
摘要: function TServerMethods.updateTest(Value: string; Obj: TJSONObject): TJsonObject; var DataJson: TJSONObject; begin if Assigned(Obj) then begin // Data 阅读全文
posted @ 2021-09-06 15:50 redhat588 阅读(23) 评论(0) 推荐(0) 编辑
摘要: function StrtoDate(Astr: string): string; var D: TDateTime; s: string; begin //'20210806'转'2021-08-06' // uses System.StrUtils s := StuffString(StuffS 阅读全文
posted @ 2021-08-06 16:45 redhat588 阅读(13) 评论(0) 推荐(0) 编辑
摘要: SELECT STUFF(STUFF('20210806', 5, 0, '-'),8,0,'-') 阅读全文
posted @ 2021-08-06 16:17 redhat588 阅读(45) 评论(0) 推荐(0) 编辑
摘要: cxGridAPSDBBandedTableView1.CreateColumn; cxGridAPSDBBandedTableView1.Columns[I].DataBinding.FieldName := FDQuery1.Fields[I + 2].FieldName; //加2列开始,取消 阅读全文
posted @ 2021-08-06 14:55 redhat588 阅读(22) 评论(0) 推荐(0) 编辑
摘要: USES cxgridExportlink procedure TfrmAdvAPS.CxGridToExcel(AcxGrid: TcxGrid); var SaveDialog: TSaveDialog; begin SaveDialog := TSaveDialog.Create(nil); 阅读全文
posted @ 2021-07-28 14:48 redhat588 阅读(8) 评论(0) 推荐(0) 编辑