delphi - 检查number是否为Integer类型

Question

我希望能够检查操作后的数字(最初为 Integer)是否再次适合 Integer，如果不适合，则跳转到异常，或者可能有某个函数可以执行此操作，例如 如果 isInteger() 那么...

我不想转换为字符串，然后转换为整数并检查长度。

为什么我需要它？有一个变量(整数)保持更新间隔，每次对服务器的请求失败(没有网络，无论如何)时，更新间隔都会加倍。所以我想在间隔达到最大可能的整数值时关闭自动更新，即2,147,483,647

我正在寻找可能的答案，似乎每个地方的人都使用字符串数据类型来检查数字的某些条件，但我不想使用中间数据类型

Answer 1

我将在这里尝试描述解决您的特定问题的各种方法，以及一些此类性质的更普遍的问题。

<小时/>

处理溢出的最通用方法是让编译器为您编写代码。启用 overflow checking选项，如果您执行的操作的结果不适合数据类型范围，则会引发异常。

来自documentation :

The $Q directive controls the generation of overflow checking code. In the {$Q+} state, certain integer arithmetic operations (+, -, *, Abs, Sqr, Succ, Pred, Inc, and Dec) are checked for overflow. The code for each of these integer arithmetic operations is followed by additional code that verifies that the result is within the supported range. If an overflow check fails, an EIntOverflow exception is raised (or the program is terminated if exception handling is not enabled).

因此，如果您希望捕获此类情况，您可以启用溢出检查并捕获 EIntOverflow 异常。

<小时/>

这将完全通用。然而，让我们考虑一个更具体的场景。假设您有一个正整数，并且要按正值递增。假设您的计数器为 count，增量为 incr。您正在尝试检测何时

count + incr > MaxInt

像这样重新排列不等式:

count > MaxInt - incr

您可以在尝试增量操作之前简单地测试该不等式。

<小时/>

事实上，您的具体情况比这更简单。您将值加倍而不是使用加法来递增。所以只需检查是否

count <= MaxInt div 2

<小时/>

另一种选择是取数量的以 2 为底的对数。这会将您的加倍过程转换为增量 1。在这种情况下，您实际上所做的就是数到 31!并使用 1 shl count 执行转换回真实间隔。