![](https://img-blog.csdnimg.cn/20201014180756930.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
日积月累
david7787
低学历,高能力!
展开
-
Lable的新用法!
在程序开发过程中,有时候会用到一些全局的变量,但是这些变量会带来一些问题,这时候我的作法是将一个lable定义成lblCache,将lblCache.visible:=False,lblCache.caption作为一个全局变量来用,呵呵,即安全又方便。主要用于string类的变量。呵呵。原创 2006-01-24 16:21:00 · 996 阅读 · 1 评论 -
Tedit中输入只允许数字和防止多个小数点的办法
edit中,如果用来输入浮点数的时候,会有0.99.00的情况发生,解决办法:procedure TfmCESInput.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not(key in [0..9,.]) then key:=#0; //限制只能输入数字和小数点 if (key=.) and原创 2006-01-21 02:48:00 · 1134 阅读 · 0 评论