关于Edit!

Question

对于要输入金额的Edit,大家一般怎么判断?
哪个哥哥能帖个代码看看!
我老怕我判断的不完全!

Answer 1

try 
  StrToCurr(Edit.text);//输入金额
except
  on EConvertError do
    Showmessage('error');
end;

Answer 2

你可以找个货币输入控件。Rxlib中有一个,还有个sncCurrency的控件是专门用来做货币输入的.

Answer 3

你可以用这个东西来实现啊
Delphi-->Additional-->MaskEdit
点他里面的属性EditMask将他改变一个属性就可以了

Answer 4

两个办法
1   onChange:
try 
  StrToCurr(Edit.text);//输入金额
except
  on EConvertError do
    Showmessage('error');
end;   onKeyPress:
if not (Key in ['0'..'9',//#backspace,'.'] then
        key:=#0;
           

Answer 5

onKeyPress事件来判断是不是数字小数 以及删除键 就可以了吧

Answer 6

try 
  StrToCurr(Edit.text);//输入金额
except
  on EConvertError do
    Showmessage('error');
end;

Answer 7

要判断数字、小数点、回车、回退键：
if not (Key in ['0'..'9','.',#13,#8]) then Key := #0;
不赞成用Except，老是弹出一个MessageBox会让用户很烦的。

Answer 8

忘了说了，写在OnKeyPress事件里

Answer 9

private
  iDecimalPoint:integer;//纪录是否有小数点procedure TForm1.Edit1Change(Sender: TObject);
begin
  if pos('.',(sender as tedit).Text )=0 then
     iDecimalPoint:=0;
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 case key of
 '0'..'9',char(8): ;
 '.':  if iDecimalPoint<1 then
          inc(iDecimalPoint)
       else
          key:=char(13);
 else key:=char(13);
 end;
end;
---------
注意：以上不能兼顾复制到Edit中的字符串

Answer 10

个人觉得还是写keypress时间限制输入好一点