摘要: 常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Cl 阅读全文
posted @ 2024-08-17 21:10 沧江魅影 阅读(98) 评论(0) 推荐(0) 编辑
摘要: if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字,否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; end 引用 S 阅读全文
posted @ 2024-08-15 18:16 沧江魅影 阅读(26) 评论(0) 推荐(0) 编辑
摘要: //1cxgrid动态创建列 procedure TFrmRuleEdit.CreateCols; var Column: TcxGridDBColumn; begin cdsPowerPrj.First; while not cdsPowerPrj.Eof do begin Column := v 阅读全文
posted @ 2024-08-15 18:15 沧江魅影 阅读(7) 评论(0) 推荐(0) 编辑
摘要: 转自http://www.delphitop.com/html/jichu/153.html 感谢原作者。 这段时间在用DELPHI做一个财务系统时发现每一行的小计取了两位小数后与用SQL的ROUND查询出来的不一样,在程序中是用FormatFloat('0.00',ItemSum)函数来取值的,再 阅读全文
posted @ 2024-08-15 18:13 沧江魅影 阅读(82) 评论(0) 推荐(0) 编辑
摘要: 以下内容转自: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 阅读全文
posted @ 2024-08-15 18:12 沧江魅影 阅读(16) 评论(0) 推荐(0) 编辑
摘要: 如果WINDOWS系统的短日期格式为“yyyy/m/d”,执行下面的代码会报错:2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);varsDate: string;begininherited;// 阅读全文
posted @ 2024-08-15 18:10 沧江魅影 阅读(7) 评论(0) 推荐(0) 编辑
摘要: var aStream: TMemoryStream; LDataSet: TFDDataSet; // 申请一个FD数据集 MyStream: Tmemorystream; MyJPEG: TJpegImage; MyPng: TPngImage;begin inherited; if img2. 阅读全文
posted @ 2024-08-15 18:07 沧江魅影 阅读(6) 评论(0) 推荐(0) 编辑
摘要: GExperts是一组通过扩展集成开发环境(IDE)来提高Delphi和C++ Builer程序员工作效率的工具。是一款开源的IDE扩展专家,由于去外网下载GExperts非常的麻烦,这里直接提供了Delphi7和Delphi11.1下的GExperts安装包,并连带最新源码一起打包,方便大家使用学 阅读全文
posted @ 2024-08-15 18:06 沧江魅影 阅读(55) 评论(0) 推荐(0) 编辑
摘要: 网上有代码动态生成cxgrid多行表头的源码,地址为:http://mycreature.blog.163.com/blog/static/556317200772524226400/ 如果要手动设计多行表头的话,有下面三步搞定: 1、新建一个工程。将CXGRID控件放在上面,Customize创建 阅读全文
posted @ 2024-08-09 11:19 沧江魅影 阅读(32) 评论(0) 推荐(0) 编辑
摘要: 快捷键对于提高编程速度有着很重要的影响,本文汇总整理了Delphi常用的快捷键,供大家参考之用: Ctrl+PageUp将光标移至本屏的第一行,屏幕不滚动。Ctrl+PageDown将光标移至本屏的最后一行,屏幕不滚动。Ctrl+↓向下滚动屏幕,光标跟随滚动不出本屏。Ctrl+↑向上滚动屏幕,光标跟 阅读全文
posted @ 2024-08-09 11:15 沧江魅影 阅读(80) 评论(0) 推荐(0) 编辑