摘要：
if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字，否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; end 引用 S 阅读全文
摘要：
//1cxgrid动态创建列 procedure TFrmRuleEdit.CreateCols; var Column: TcxGridDBColumn; begin cdsPowerPrj.First; while not cdsPowerPrj.Eof do begin Column := v 阅读全文
摘要：
转自http://www.delphitop.com/html/jichu/153.html 感谢原作者。 这段时间在用DELPHI做一个财务系统时发现每一行的小计取了两位小数后与用SQL的ROUND查询出来的不一样，在程序中是用FormatFloat('0.00',ItemSum)函数来取值的，再 阅读全文
摘要：
以下内容转自：https://my.oschina.net/ousinka/blog/3048132 如何定义身份证号的正则表达式呢？ 1、省份编码[1-9]\d{5}2、年份(18|19|20)?\d{2}3、月份为 1, 3, 5, 7, 8, 10, 12，天数范围为 01 - 31，匹配MM 阅读全文
摘要：
如果WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);varsDate: string;begininherited;// 阅读全文
摘要：
var aStream: TMemoryStream; LDataSet: TFDDataSet; // 申请一个FD数据集 MyStream: Tmemorystream; MyJPEG: TJpegImage; MyPng: TPngImage;begin inherited; if img2. 阅读全文
摘要：
GExperts是一组通过扩展集成开发环境（IDE）来提高Delphi和C++ Builer程序员工作效率的工具。是一款开源的IDE扩展专家，由于去外网下载GExperts非常的麻烦，这里直接提供了Delphi7和Delphi11.1下的GExperts安装包，并连带最新源码一起打包，方便大家使用学 阅读全文