在delphi中怎样判断一个字符串是整型的？？？？？

Question

在delphi中怎样判断一个字符串是整型的？？？？？

Answer 1

uses Dialogs;
var   I, Code: Integer;
begin
  { Get text from TEdit control }
  Val(Edit1.Text, I, Code);             //Val
  { Error during conversion to integer? }
  if Code <> 0 then
    MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0);
  else
    Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));end;

Answer 2

用try...except...end块
procedure Test;
var s: string;
begin
  try
    StrToInt(s);
  except
    ShowMessage('该字符串不是整型。');
    exit;
  end;
end;

Answer 3

不用异常更快，简单吧
直接
var
 s:String;
 i:integer;
begin
  i:=StrToIntDef(s,-1);
  if i=-1 then //非整型，不能转换
  else  //整形,可以转换end;