随笔分类 - Delphi
【Delphi】Utils.SerialPort
摘要:unit Utils.SerialPort; interface uses SysUtils, SPComm; type TSerialPort = class(TObject) private comm: TComm; public constructor Create(name: string;
【Delphi】Utils.Generics.ADODB
摘要:unit Utils.Generics.ADODB; interface uses System.Classes, System.TypInfo, System.Win.ComObj, System.Generics.Collections, Winapi.ActiveX, Data.DB, Dat
【Delphi】Utils.EventBus
摘要:unit Utils.EventBus; interface uses System.Classes; type IEventBus = interface(IUnknown) procedure Notify(information: TObject); end; ////////////////
【Delphi】Utils.ADODB
摘要:unit Utils.ADODB; interface uses System.Classes, System.TypInfo, System.Win.ComObj, Winapi.ActiveX, Data.DB, Data.Win.ADODB; type { TMPropList class t
【Delphi】Utils.StdCtrls
摘要:unit Utils.StdCtrls; interface uses Classes, Controls, StdCtrls, Windows; type TUiUtil = class(TObject) public { 控件查找 TWinControl } class function Get
【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 =
【Delphi】Dialogs.TOptionPane(MessageBox 简单模板封装)
摘要:MessageBox 简单模板封装 unit Dialogs.OptionPane; interface uses Winapi.Windows, Vcl.Dialogs; const TITLE_T = ' 提示消息 '; TITLE_W = ' 警告消息 '; TITLE_E = ' 错误消息