delphi中如何判断是否数字?

Posted 2023-03-18

参考技术A 如果是判断键盘输入是否数字，可以用上面的算法，很全面了。
如果判断文本框或变量中的字符是否为合法数字，可以用下面这个方法：
var
i: LongInt;
f: Double;
begin
if TryStrToInt(Edit1.Text,i) or TryStrToFloat(Edit1.Text, f) then
ShowMessage('是数字')
else
ShowMessage('不是数字');
end;本回答被提问者和网友采纳 参考技术B 在 Edit 的 KeyPress 事件中加入下列代码：
if not((key in ['0'..'9',#8]) ) then
begin
showmessage ('不是数字');
key := #0;
end; 参考技术C 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; 参考技术D 用眼睛看啊