摘要: class helper 可能是从 Delphi 2007 增加的新语法, 因为感觉不太实用, 直到今天才测试了一下.试过之后才知道: 挺有意思的! 基本功能就是修改已存在的类. Txxx = class helper for T... {T... 表示已存在的类} {可以替换已存在的方法} {也可 阅读全文
posted @ 2020-07-15 11:31 redhat588 阅读(205) 评论(0) 推荐(0)
摘要: 我们在做二开的时候 ,经常 需要判断插入的单号是多少 ,单号又和单别相关联。 现已经封装完成取单号的接口,这样调用的时候就方便 多了。 阅读全文
posted @ 2020-05-25 11:17 redhat588 阅读(449) 评论(0) 推荐(0)
摘要: 前言:从DEMO开始学习mORMOT。 注意一下作者在DEMO中的说明: 使用HTTP服务器从SQL提供SQLite3 JSON结果。 它将期望传入的SQL语句作为HTTP主体发布,即 将被执行并作为JSON返回。 这个默认的实现将只服务于测试。生成的db3文件 通过回归测试。 安装注意:确保您首先 阅读全文
posted @ 2020-05-23 09:52 redhat588 阅读(646) 评论(0) 推荐(0)
摘要: 下载测试地址: https://pan.baidu.com/s/1W0jGZ1zCM6o97VmpMyNOMQ 阅读全文
posted @ 2020-05-15 15:11 redhat588 阅读(573) 评论(0) 推荐(0)
摘要: 易飞ERP有个非常不好的地方,就是单据审批非常不好用,进入移动互联网时代,手机不能审批怎么办? 博主提供一种解决思路,请看视频: https://www.bilibili.com/video/BV1G54y1X7KN/ 阅读全文
posted @ 2020-05-06 14:55 redhat588 阅读(732) 评论(0) 推荐(0)
摘要: 通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表. uses System.Rtti; //TRttiContext.GetTypes procedure TForm1.Button1Click(Sender: TObject); v 阅读全文
posted @ 2020-05-03 13:47 redhat588 阅读(661) 评论(0) 推荐(0)
摘要: uses System.IOUtils; procedure TForm1.btn3Click(Sender: TObject); var S: string; begin { 三种方法结果一致: C:\Users\Administrator\AppData\Roaming } S := GetHo 阅读全文
posted @ 2020-05-03 11:37 redhat588 阅读(584) 评论(0) 推荐(0)
摘要: procedure TForm1.btn2Click(Sender: TObject); var G: TGUID; S: string; bs: TBytes; begin G := G.NewGuid; S := G.ToString; //{9B60BA3F-8EE5-448F-BC9B-64 阅读全文
posted @ 2020-05-03 11:26 redhat588 阅读(267) 评论(0) 推荐(0)
摘要: // 它们定义在 System.Character, 它可以彻底替代同单元的 TCharacter 结构体. 主要方法有: function IsControl: Boolean; function IsDigit: Boolean; function IsHighSurrogate: Boolea 阅读全文
posted @ 2020-05-03 11:19 redhat588 阅读(573) 评论(0) 推荐(0)
摘要: 先记录,再学习。 TThread.CreateAnonymousThread(); //普通 TThread.Queue(); //队列 TThread.Synchronize(); //VCL 同步 阅读全文
posted @ 2020-04-24 21:29 redhat588 阅读(152) 评论(0) 推荐(0)