Question

DELPHI问题，求DELPHI判断数字格式的方法

DELPHI问题，求DELPHI判断数字格式的方法。

EDIT里输入的是手机号码，我想限定住只能输入数字，如果不是数字就提示格式不正确，怎么实现？有没有专门的函数？

Answer 1

在edit的KeyPress事件写代码：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8])then
begin
application.MessageBox('请输入数字!','提示',64);
key:=#0;
end;
end;

Answer 2

一句代码搞定：
SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

将代码放在窗体创建事件，就是：OnCreate

Answer 3

很简单，D2009的Edit控件有一个属性
NumbersOnly
这个属性设置为True，就只能输入数字咯。
D2009以前的版本如果没有这个属性，你大概只能使用一楼的方法了。