如何在Delphi 12中启用严格的Int32/Int64类型兼容性检查？

在32位转64位整数类型的迁移中，要让编译器拦截Int32隐式转Int64的调用，可通过以下几种方式实现：

方法一：自定义强类型包装器 #

创建一个仅接受Int64的包装结构体，替代参数中的原生Int64，这样Int32传入时会直接触发编译错误：

// 定义强类型包装器
public readonly struct StrictInt64
{
    public long Value { get; }

    public StrictInt64(long value) => Value = value;

    // 仅允许从Int64隐式转换
    public static implicit operator StrictInt64(long value) => new StrictInt64(value);

    // 禁止从Int32隐式转换（不定义此转换方法）

    // 可选：支持显式转回Int64
    public static explicit operator long(StrictInt64 value) => value.Value;
}

使用步骤： #

1. 将所有目标方法/属性的Int64参数替换为StrictInt64
2. 编译项目，所有传入Int32的调用都会报错，逐一修改这些调用为Int64类型
3. 全部修改完成后，将StrictInt64替换回原生long（即Int64）

方法二：利用代码分析规则升级警告为错误 #

如果使用Visual Studio或Roslyn分析器，可启用并升级特定数值转换的警告为错误：

• 找到代码分析规则中针对隐式数值转换的规则（如自定义分析规则或启用相关内置规则）
• 在项目属性的“生成”选项卡中，将对应警告编号设为“错误”
• 编译后，所有Int32转Int64的隐式转换会被标记为错误

方法三：临时类型别名替换 #

通过类型别名将Int64指向自定义类型，拦截非法转换：

// 全局替换Int64为自定义类型
using Int64 = StrictInt64Wrapper;

public class StrictInt64Wrapper
{
    private long _innerValue;

    // 仅接收Int64的构造函数
    public StrictInt64Wrapper(long value) => _innerValue = value;

    // 如需使用数值操作，可重载运算符（按需添加）
    public static implicit operator long(StrictInt64Wrapper wrapper) => wrapper._innerValue;
}

此方法会让所有原本使用Int64的地方强制要求传入long类型，Int32传入时编译失败，修改完成后删除别名即可。

注意事项： #

• 替换自定义类型后，需确保所有第三方库调用、序列化逻辑等兼容，必要时添加显式转换
• 迁移完成后务必恢复原生Int64类型，避免额外维护成本

内容的提问来源于stack exchange，提问作者Richard Shuck