828
社区成员
发帖
与我相关
我的任务
分享小数问题
procedure TfrmW_001.edtIn_DateKeyPress(Sender: TObject; var Key: Char);
begin
if (key<>#8) and not(key in ['0'..'9'])then
begin
key:=#0;
showmessage('只能输入数字');
exit;
end;
end;
要改成能输入小数点，＃8，＃0，key:=#0;是什么意思，怎样改？谢谢，刚接触delphi,急用
begin
if (key<>#8) and not(key in ['0'..'9'])then
begin
key:=#0;
showmessage('只能输入数字');
exit;
end;
end;
要改成能输入小数点，＃8，＃0，key:=#0;是什么意思，怎样改？谢谢，刚接触delphi,急用
...全文
请发表友善的回复…
发表回复
fangpengyu 2009-05-08
- 打赏
- 举报
edtQty.Text :=formatFloat('0.000', StrToFloat(edtQty.Text));
为什么还是控制不了只保留小数点后3位
为什么还是控制不了只保留小数点后3位
lhy 2009-05-08
- 打赏
- 举报
我一般这么干
if not(key in ['0'..'9',#8,'.']) then
450239142 2009-05-08
- 打赏
- 举报
key in ['0'..'9','#46']
46是 . ascii码
46是 . ascii码
450239142 2009-05-08
- 打赏
- 举报
＃8 backspace
#0 null
#0 null
bdmh 2009-05-08
- 打赏
- 举报
key in ['0'..'9','.']
key:=#0,不做任何操作
key:=#0,不做任何操作
