delphi edit 固定小数位数的实现(形如:1,000,000.10)
2010-05-28 23:25
567 查看
procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['0'..'9',#8,#13]) then
begin
if key=#13 then
begin
if length(edit1.Text)>2 then
edit1.Text:=copy(edit1.Text ,1,(length(edit1.Text)-2))+'.'+copy(edit1.Text ,(length(edit1.Text)-1),2) ;
if length(edit1.Text)=2 then
edit1.Text:='0.'+edit1.Text;
if length(edit1.Text)=1 then
edit1.Text:='0.0'+edit1.Text;
edit2.SetFocus;
end
end
else
key:=#0;
end;
delphi edit 固定小数位数的实现方法的改进
------------------------
procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['0'..'9',#46,#13]) then
begin
if (SubStrConut(Edit1.Text,'.')=1) and (key in [#46]) then
key:=#0;
if key=#13 then
begin
if (pos(',',edit1.text)=0) and (edit1.text<>'') then
edit1.Text:=formatfloat('#,##0.00',strtofloat(edit1.Text));
edit2.SetFocus;
end;
end
else if key in [#8] then
edit1.text:=''
else
key:=#0;
end;
delphi edit 固定小数位数的实现方法的改进(解决无法输入负数的问题)
------------------------
procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['0'..'9',#45,#46,#13]) then
begin
if (SubStrConut(Edit1.Text,'.')=1) and (key in [#46]) then
key:=#0;
if (SubStrConut(Edit1.Text,'-')=1) and (key in [#45]) then
key:=#0;
if key=#13 then
begin
if (pos(',',edit1.text)=0) and (edit1.text<>'') then
if (pos('-',edit1.text)=0) or (pos('-',edit1.text)=1) then
begin
edit1.Text:=formatfloat('#,##0.00',strtofloat(edit1.Text));
edit2.SetFocus;
end;
end;
end
else if key in [#8] then
edit1.text:=''
else
key:=#0;
end;
begin
if (key in ['0'..'9',#8,#13]) then
begin
if key=#13 then
begin
if length(edit1.Text)>2 then
edit1.Text:=copy(edit1.Text ,1,(length(edit1.Text)-2))+'.'+copy(edit1.Text ,(length(edit1.Text)-1),2) ;
if length(edit1.Text)=2 then
edit1.Text:='0.'+edit1.Text;
if length(edit1.Text)=1 then
edit1.Text:='0.0'+edit1.Text;
edit2.SetFocus;
end
end
else
key:=#0;
end;
delphi edit 固定小数位数的实现方法的改进
------------------------
procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['0'..'9',#46,#13]) then
begin
if (SubStrConut(Edit1.Text,'.')=1) and (key in [#46]) then
key:=#0;
if key=#13 then
begin
if (pos(',',edit1.text)=0) and (edit1.text<>'') then
edit1.Text:=formatfloat('#,##0.00',strtofloat(edit1.Text));
edit2.SetFocus;
end;
end
else if key in [#8] then
edit1.text:=''
else
key:=#0;
end;
delphi edit 固定小数位数的实现方法的改进(解决无法输入负数的问题)
------------------------
procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['0'..'9',#45,#46,#13]) then
begin
if (SubStrConut(Edit1.Text,'.')=1) and (key in [#46]) then
key:=#0;
if (SubStrConut(Edit1.Text,'-')=1) and (key in [#45]) then
key:=#0;
if key=#13 then
begin
if (pos(',',edit1.text)=0) and (edit1.text<>'') then
if (pos('-',edit1.text)=0) or (pos('-',edit1.text)=1) then
begin
edit1.Text:=formatfloat('#,##0.00',strtofloat(edit1.Text));
edit2.SetFocus;
end;
end;
end
else if key in [#8] then
edit1.text:=''
else
key:=#0;
end;
相关文章推荐
- EL表达式取整数或者取固定小数位数的简单实现
- 实现固定小数位数值
- delphi Edit 控制最大值,只能输入数字型 控制小数位数(转)
- js中保证小数为固定的位数
- float类型转换为固定小数位数的字符串函数
- java中保留固定小数位数
- java四舍五入的实现和保留固定小数位
- java保留double类型固定小数位数的方法
- 巧用锐浪报表:用报表脚本实现动态显示小数位数
- javascript中的toFixed固定小数位数 简单实例分享
- Delphi DBGrid 固定小數位數的实现(形如1,000,000.00)
- DataGrid绑定数据固定的小数位数
- 用javascript实现浮点数的截取小数位数,并四舍五入
- 用javascript实现浮点数的截取小数位数,并四舍五入
- JS 控制小数位数的实现代码
- 小数运算需要注意什么? 接口和抽象类 WinForm窗体上两个panel,怎么实现一个panel固定漂浮在另一个panel之上
- 自己写个类实现对小数的四舍五入,保留相应的位数
- java 把小数格式化成固定小数位数的几种方法---含实例
- 固定小数位数 setprecision()