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