Question

delphi中怎么判断编辑框里的数值是整型

Answer 1

var
IsID:boolean;
n:integer;
begin
IsID:=false;
for n:=1 to length(edit.text) do
begin
if edit.text[n] in ['0'..'9'] then
begin
IsID:=true;
end
else
begin
IsID:=false;
break;
end;
end;
if IsID then
begin
//输入的是整形
end
else
begin
//输入的不是整形
end;
end;

Answer 2

try
strtoint(edit1.text);
except
showmessage('文本框内的数值不是整数')'
end;