Question

delphi中如何判断是不是数字?

Answer 1

如果是判断键盘输入是否数字，可以用上面的算法，很全面了。
如果判断文本框或变量中的字符是否为合法数字，可以用下面这个方法：
var
i: LongInt;
f: Double;
begin
if TryStrToInt(Edit1.Text,i) or TryStrToFloat(Edit1.Text, f) then
ShowMessage('是数字')
else
ShowMessage('不是数字');
end;

Answer 2

在 Edit 的 KeyPress 事件中加入下列代码：
if not((key in ['0'..'9',#8]) ) then
begin
showmessage ('不是数字');
key := #0;
end;

Answer 3

function CheckInputisNum(var key: char): Boolean;
begin
Result := true;
if ((Ord(key) < 48) or (Ord(key) > 57)) and (Ord(key) <> 8) and (Ord(key) <> 3) and (Ord(key) <> 24) and (Ord(key) <> 22) then
begin
key := #0;
Beep;
Result := false;
end;
end;

Answer 4

用眼睛看啊