IsInt

整数に変換できるか確かめる関数。

function IsInt(const S: string): Boolean;
var
  V, Code: Integer;
begin
  Val(S, V, Code);
  Result := (Code = 0);
end;