procedure Tform1.StringGridlGetEditMask(Sender:TObject;ACol,ARow:Integer;var Value:String);
begin
if acol=2 then value:=“99.99;1;”; //五位数保留一位小数?
if acol=2 then value:=“99.99;2;”; //五位数保留两位小数?
if acol=4 then value:=“9999.99;1;”; //七位数保留一位小数?
if acol=4 then value:=“9999.99;2;”; //七位数保留两位小数?
end;
解决方案 »
- 急求一简单的SQL语句~谢谢。
- 开发一个基于ActiveForm控件,然后放一个Timage组件。请问怎样增加自定义函数、过程。以及怎样使用Timage的函数和过程呢?
- 不很简单的问题!解决结贴
- 怎样在录入数据时检查有没有重复?
- 关于使用adoconnection访问sql数据库而数据库关闭时产生异常的问题
- 如何得知弹出菜单已经关闭??
- 我的信誉分不知为什么减少很多,请问怎样能够增加信誉分呢?
- 这个触发器怎么写?
- 怎样让子窗口在程序一运行就停泊在指定的地方?
- 在DELPHI中怎样调用API函数?
- 大家来说说用DELPHI做界面的经验吧
- 做了一个复活节彩蛋,关闭窗体后再次按热键,不好使了怎么办啊?
! 去掉输入数据开头的空格符
> 让输入数据的字母都变成大写,直到遇上掩码字符 <
< 让输入数据的字母都变成小写,直到遇上掩码字符>
<> 不限制输入数据字母是大写或小写
\ 若在输入格式内加入某个特殊字符,只要在特殊字符的前面加上此掩码就可以。
L 允许输入英文字母,而且一定要输入
l 允许输入英文字母,不一定要输入
A 允许输入英文字母和阿拉伯数字,一定要输入
a 允许输入英文字母和阿拉伯数字,不一定要输入
C 允许输入任何字符,一定要输入
c 允许输入任何字符,不一定要输入
0 允许输入阿拉伯数字,一定要输入
9 允许输入阿拉伯数字,不一定要输入
# 允许输入阿拉伯数字或正、负号字符
: 用来分隔时间数据中的时、分、秒
/ 用来分隔日期数据中的年、月、日
; 用来分隔掩码字段
_ 代表空格符,运行时显示下划线字符procedure Tform1.StringGridlGetEditMask(Sender:TObject;ACol,ARow:Integer;var Value:String);
begin
if acol=4 then value:='9999.99;1; '; //四位整数,两位小数
end;
9 允许输入阿拉伯数字,不一定要输入,几个9代表几位
第二个分号后的字符表示未输入时的替代字符,默认字符是_,上面代码中是用空格替代
FormatFloat('0.0000', AValue);
9 其所对应的位置只能输入数字,但不一定要输入
0 其所对应的位置只能输入数字,一定要输入
c 其所对应的位置只能输入子符,但不一定要输入
C 其所对应的位置只能输入子符,一定要输入
! 假如!子符出现在TMaskEdit掩码子符中,则"!"子符前的空格不会被存为数据
/ 通常用来分隔日期中的年月日等数据
_ _处自动插入一个空格
; 用来分隔各个部分