摘要：
edit1.Text := inttohex(($14+$A2)*$0F,1); 阅读全文
摘要：
WllibCall.incstdcall;{$IFNDEF DLLWLLib}external 'wllib.dll';{$ENDIF}......function Cpl(PSrc: PChar; len: integer; PDest: PChar): PChar; {$I 'WllibCall.inc'} 阅读全文
摘要：
TNodeType = (ntBM, ntXLD, ntKH, ntZD, ntCLD); TRtuNodeData = record NodeType: TNodeType; id: integer; //数据库的索引，不同的节点类型对应不同的表和字段 RtuAddr: string[8]; end;......var sCommID: string; data: ^TRtuNodeData;begin data := TTreeView.Selected.Data; if data = nil then exit; if data.NodeType <> ntZD then e 阅读全文
摘要：
池就是建立一定数目的资源对象，例如数据库连接对象，企业对象等，在一个容器对象中取出资源对象让客户端应用程序使用，当客户端使用完毕之后再把资源对象放回容器对象之中。在系统开始时应用系统已经在一个容器对象中建立了一定数目的连接对象等待客户端程序使用这些连接对象来连接到数据库。当有客户端应用程序需要连接数据库时，就从容器对象中取出一个已经建立的连接对象让客户应用程序来连接数据库，这样可以大幅加快客户应用程序连接数据库的时间。如果有持续不断的客户端应用程序需要连接数据库，系统便会一直从容器对象中取出连接对象让客户应用程序使用，一直到容器对象中没有可供使用的连接对象为止。如果容器对象使用完了所有的连接对 阅读全文
摘要：
//==============================================================================// ADO连接池 cxg 2008-09-26 16:47:40//==============================================================================unit uADOPool;interfaceuses SysUtils,Classes,ADODB,Dialogs,IniFiles,Forms;type// 数据库类型 TDBType=(Access,SqlS 阅读全文
摘要：
//==============================================================================// ADO数据工厂 cxg 2008-09-26 14:37:23//==============================================================================unit uADOFactory;interfaceuses SysUtils,ADODB,DB,Classes,ActiveX,IniFiles,Forms;const c_SqlSvrPrd='sql 阅读全文
摘要：
//==============================================================================// 多线程查询 cxg 2008-09-26 14:29:42//==============================================================================unit uSelect;interfaceuses sysUtils,ADODB,Classes;type TSelect = class(TThread) private FAdoConnection:TADOC 阅读全文
摘要：
指针和引用的区别:指针是野孩子引用是乖孩子野孩子的特点喜欢撒野打滚乖孩子是对野孩子进行调教了 阅读全文
摘要：
tdbgrideh(Sender).InplaceEditor.EditText 阅读全文
摘要：
uses comobj function calculate(express: string): string; var vscript: Variant; begin vscript := createoleobject('scriptcontrol'); vscript.language:='javascript'; result := vscript.eval(express); end; 阅读全文