摘要：如何有效刷新当前记录ADO的Recordset对象有一个Resync方法, 可以刷新不同范围的数据. 如果想刷新当前记录可以用如下的语句:var Rst: _Recordset;begin ... Rst.Resync(adAffectCurrent, adResyncAllValues); ...end;可惜delphi的TADODataSet没有封装这个功能. 如果要在TADODataSet刷新当前记录, 只有使用Requery方法重新执行SQL语句, 或使用Refresh方法. Requery重新执行, 记录指针放在第一条, 而不是当前记录. Refresh方法其... 阅读全文

摘要：1.只能输入数字和英文的： 2.只能输入数字的： 3.只能输入全角的： 4.只能输入汉字的： 5.邮件地址验证： var regu = "^(([0-9a-zA-Z]+)|([0-9a-zA-Z]+[_.0-9a-zA-Z-]*[0-9a-zA-Z]+))@([a-zA-Z0-9-]+[.])+([a-zA-Z]{2}|net|NET|com|COM|gov|GOV|mil|MIL|org|ORG|edu|EDU|int|INT)$" var re = new RegExp(regu); if (s.search(re) != -1) {... 阅读全文

摘要：1 unit IMCode; 2 3 (* 4 简化版拼音反查单元===================== 5 修改于 Trueway(TM) LiQunwei 6 修改者 2ccc.com ZhongWan 7 修改内容 去掉外挂字典，简化代码 8 *) 9 10 interface 11 12 function MakeSpellCode(stText: string; iMode, iCount: Integer): string; 13 { iMode 二进制功能位说明 14 X X X X X X X X X X X X... 阅读全文