![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Pascal
XKIND
这个作者很懒,什么都没留下…
展开
-
【Delphi】Utils.Generics.ADODB
unit Utils.Generics.ADODB; interface uses System.Classes, System.TypInfo, System.Win.ComObj, System.Generics.Collections, Winapi.ActiveX, Data.DB, Data.Win.ADODB; type { TMPropList class type } TMPropList = class(TObject)原创 2020-12-03 14:54:22 · 118 阅读 · 0 评论 -
【Delphi】Utils.EventBus
unit UEventBus; interface uses System.Classes; type IEventBus = interface(IUnknown) procedure Notify(information: TObject); end; //////////////////////////////////////////////////////////////////////////////// TEventBus = class原创 2020-12-03 14:51:23 · 301 阅读 · 0 评论 -
【Delphi】Utils.ADODB
unit DbUtils; interface uses System.Classes, System.TypInfo, System.Win.ComObj, Winapi.ActiveX, Data.DB, Data.Win.ADODB; type { TMPropList class type } TMPropList = class(TObject) private FPropCount: Integer;原创 2020-12-03 14:44:51 · 142 阅读 · 0 评论 -
【Delphi】Utils.StdCtrls
unit StdUtils; interface uses Classes, Controls, StdCtrls, Windows; type TUiUtil = class(TObject) public { 控件查找 TWinControl } class function GetControlByName(ctrl: TWinControl; const name: string): TControl; { 控件查找 TC原创 2020-12-03 14:41:05 · 198 阅读 · 0 评论 -
【Delphi】PLC.OMRON.FINS
OMRON FINS DEMO unit PLC.OMRON; interface uses System.StrUtils, System.SysUtils; const HEAD_CODE = '@'; DEFAULT_UNIT = 0; PC_CODE = 'FA'; HEAD_BODY = '000000000'; READ_CMD = '0101'; WRITE_CMD = '0102'; DEFAULT_BIT = '00';原创 2020-12-03 14:33:29 · 390 阅读 · 0 评论 -
【Delphi】Dialogs.OptionPane(MessageBox 简单模板封装)
MessageBox 简单模板封装 unit UOptionPane; interface uses Windows; const TITLE_T = ' 提示消息 '; TITLE_W = ' 警告消息 '; TITLE_E = ' 错误消息 '; TITLE_Q = ' 询问消息 '; type TOptionPane = class(TObject) public class function ShowTips(text:原创 2020-12-03 14:20:19 · 174 阅读 · 0 评论