请光临寒舍！谢谢！

Question

请问各位，有没有一个函数来限定一个edit中的内容为数值型？在这里多谢各位了！

Answer 1

函数是没有，自己在onkeypress事件中写。

Answer 2

//只处理整数
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Edit1.Handle, GWL_STYLE,
    GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
end;
//如果通过按键事件要考虑处理右键复制

Answer 3

zswang(伴水清清)(专家门诊清洁工):
可是如果我要允许可输入小数怎么办？

Answer 4

///////参考如下代码
procedure TForm1.Edit1Change(Sender: TObject);
var
  E: Extended;
  I: Integer;
begin
  if not TryStrToFloat(TEdit(Sender).Text, E) then begin
    I := TEdit(Sender).SelStart;
    TEdit(Sender).Text := TEdit(Sender).Hint;
    TEdit(Sender).SelStart := I;
  end else TEdit(Sender).Hint := TEdit(Sender).Text;
end;///////
其实没有必要在没次输入的时候都判断～～
在数据提交的时候判断就可以了～～
用户不是白痴，不会在该输数字的地方输字母～～
你应该把重点放在数据运算的正确性和执行效率上～～

Answer 5

to zswang(伴水清清)(专家门诊清洁工)   http://expert.csdn.net/Expert/topic/1493/1493835.xml?temp=.549206

Answer 6

zswang(伴水清清)(专家门诊清洁工) :
 那段代码通不过呀？？？？