2019 年 11月 22 日随笔档案 - 江渔湖

2019年11月22日

摘要： 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 江渔湖阅读(325) 评论(0) 推荐(0)

delphi adoquery 判断字段是否存在

摘要：使用ADOQuery数据集操作数据库，一般情况下使用adoquery.fieldbyname('columnName').asString来访问数据，如果columnName不存在，系统会报错columnName not found，如何提前判断columnName是否存在呢？ 1.使用FieldL 阅读全文

posted @ 2019-11-22 11:08 江渔湖阅读(1302) 评论(0) 推荐(1)

Delphi 高效的通用对象池

摘要：对象池的设计,可以让一定频繁使用到的对象可以重用, 无需不断进行create/destroy,极大加快了运行效率．下面是一个非常简单的利用队列设计而成线程安全的通用对象池. unit uObjPoolUnit; interface { 通用的对象池 create by rocklee, 9/Jun 阅读全文

posted @ 2019-11-22 11:00 江渔湖阅读(149) 评论(0) 推荐(0)