请问，delphi中有没有判断输入的字符是数字的函数。高份，在线！！

[zhangjinghui2008]

请问，delphi中有没有判断输入的字符是数字的函数。高份，在线！！

[l_xiaofeng]

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key in [$41..$5A] then
begin
edit1.text:=inttostr(strtoint('$'+edit1.text));
end;
照着这个自己写一个吧

[soaringsouth]

if not (Key in ['0'..'9', #8,#9,#13]) then Key := #0;

[智商无下限]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
showmessage('不是数字');
end;

[hawkhxz]

一个简单的方法：
procedure TForm1.EDIT1EXIT(Sender: TObject);
begin
try
strtoint(edit1.Text);
except
showmessage('不是一个有效的数字，请重新输入');
end;
end;

[yzf111]

var i:integer;
begin
if trystrtoint(edit1.text,i) then showmessage('it is integer');
end

[plz]

varisnumeric(edit.text)

[myfine]

有函数的，IsNumeeric

[智商无下限]

好象没有，自己写吧！也不难！

[yoisyois]

function IsDigit(key: char): boolean;
begin
if key in [0..9] then
Result := true;
end;

[yoisyois]

典型应用：
edit1 的onKeyPress事件里面：

...
if IsDigit then
....
...

[智商无下限]

一个简单的方法：在FORM上放一个EDIT1，一个BUTTON1
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
try
i:=strtoint(edit1.Text);
showmessage('你输入的是数字 :'+inttostr(i));
except
showmessage('你输入的是字符（串） :'+edit1.Text);
end;
end;

[智商无下限]

呵呵，上面的方法调试的时候通不过，但是独立运行的时候没有问题！

[langshuquan]

我一般这么写
try
strtoint(edit1.Text);
except
showmessage("不是数字！");
end;

[jinghong]

你还可以用Tmaskedit倥件来控制接收的数字还是字符。。。。