怎样用简单的方法判断文本框的输入的是否是整数？

[benben1hao]

怎样用简单的方法判断文本框的输入的是否是整数？

[mysqlcom]

搜索一下以前的贴啊。

[fengjn]

var a: real;
begin
try
a:= strtofloat(edit1.text) ;
except
不是数
end;
if round(a) = a then
整数 else
小数
end;

[charles2118]

try
s:=strToInt(youNumber)
except
showmessage('not integer')

[DWGZ]

用这个两个比较好
function IsInt(AStr: string): Boolean;
var
Value, Code: Integer;
begin
Val(AStr, Value, Code);
Result := Code = 0;
end;

function IsFloat(AStr: string): Boolean;
var
Value: Real;
Code: Integer;
begin
Val(AStr, Value, Code);
Result := Code = 0;
end;

[AustinLei]

这个也不错，如果字符串不是整数不会报错。
function IsIntStr(const S: string): boolean;
begin
Result:=StrToIntDef(S,0)=StrToIntDef(S,1);
end;

[delphiplus]

tryStrToInt 也可以

[overtime]

function isnum(str:string)
begin
try
strtoint(str)
result:=True;
except
result:=false
end;
end;