判断数值问题

Question

try
  StrToInt(edit1.Text);
  Result := True;
except
  Result := False;
end;

Answer 1

f:=true;
s:=edit1.text;
for i:1= to length(s) do
  if not(s[i] in ['0'..'9']) then
    f:=false;if not f then
  showmessage('error');

Answer 2

function IsNumeric(c: char): Boolean;
so
if IsNumeric(PChar(Edit.Text)) then

Answer 3

try
  StrToFloat(Edit1.Text);
  //是数字
except
  //非数字
end;

Answer 4

uses IdGlobal;
if IsNumeric(PChar(Edit.Text)) then
...

Answer 5

StrToIntDef(const S: string; Default: Integer): Integer;

Answer 6

IsNumeric是对单个字符的，Sorry