![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
XKIND
这个作者很懒,什么都没留下…
展开
-
【Delphi】Utils.SerialPort
unit Utils.SerialPort;interfaceuses SysUtils, SPComm;type TSerialPort = class(TObject) private comm: TComm; public constructor Create(name: string; baud: cardinal); overload; constructor Create(name: string; ba原创 2020-12-26 01:25:16 · 274 阅读 · 0 评论 -
【Delphi】Dialogs.OptionPane(MessageBox 简单模板封装)
MessageBox 简单模板封装unit UOptionPane;interfaceuses 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 · 172 阅读 · 0 评论 -
【Delphi】Utils.Generics.ADODB
unit Utils.Generics.ADODB;interfaceuses 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 · 115 阅读 · 0 评论 -
【Delphi】Utils.ADODB
unit DbUtils;interfaceuses 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.EventBus
unit UEventBus;interfaceuses System.Classes;type IEventBus = interface(IUnknown) procedure Notify(information: TObject); end;//////////////////////////////////////////////////////////////////////////////// TEventBus = class原创 2020-12-03 14:51:23 · 298 阅读 · 0 评论 -
【Delphi】Utils.StdCtrls
unit StdUtils;interfaceuses 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 · 196 阅读 · 0 评论 -
【Delphi】PLC.OMRON.FINS
OMRON FINS DEMOunit PLC.OMRON;interfaceuses 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 · 387 阅读 · 0 评论