2019年11月22日
delphi客户端自动重连功能
摘要： 1 procedure Tf_login.Timer1Timer(Sender: TObject); 2 function TestConnected: Boolean; 3 var 4 aCon: TADOConnection; 5 begin 6 Result := False; 7 aCon 阅读全文
posted @ 2019-11-22 11:09 江渔湖 阅读(283) 评论(0) 推荐(0) 编辑
delphi adoquery 判断字段是否存在
摘要： 使用ADOQuery数据集操作数据库，一般情况下使用adoquery.fieldbyname('columnName').asString来访问数据，如果columnName不存在，系统会报错columnName not found，如何提前判断columnName是否存在呢？ 1.使用FieldL 阅读全文
posted @ 2019-11-22 11:08 江渔湖 阅读(1096) 评论(0) 推荐(1) 编辑
Delphi 高效的通用对象池
摘要： 对象池的设计,可以让一定频繁使用到的对象可以重用, 无需不断进行create/destroy,极大加快了运行效率． 下面是一个非常简单的利用队列设计而成线程安全的通用对象池. unit uObjPoolUnit; interface { 通用的对象池 create by rocklee, 9/Jun 阅读全文
posted @ 2019-11-22 11:00 江渔湖 阅读(103) 评论(0) 推荐(0) 编辑