主页 / coding / 问题 / 79278290
Accepted
Richard Shuck
Asked: 2024-12-13 20:14:39 +0800 CST

您可以在 Delphi 12 中启用严格的 Int32/Int64 类型兼容性吗？

  • 772

我正在将大量类从 Integer 迁移到 Int64，而我的 32 位应用程序中都是 32 位。

如果我将一个 32 位整数传递给一个类型参数明确定义为 Int64 的过程，但由于 Int32 与 Int64 兼容，因此我希望编译器抛出异常，而不会显示任何错误。

我想这样做是为了确保我不会错过任何参考。

delphi

1 个回答

  1. Best Answer

    您可以通过使用方法重载来获取所需的信息，这将确保 Delphi 执行输入参数类型与传递的参数类型匹配的重载方法。

    然后，对于输入参数与所需输入参数不匹配的任何重载方法，您可以将此类方法标记为已弃用。这将在调用此类重载方法的任何地方创建W1000 符号“％s”已弃用（Delphi） 。

    现在，这种方法的注意事项是，您可能需要创建 8 个方法的重载版本，以覆盖四种有符号整数类型（Int8、Int16、Int32 和 Int64）以及四种无符号整数类型（UInt8、UInt16、UInt32、UInt64）；

    下面是四个重载方法检测 4 种有符号整数类型的一个小例子：

    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Test(I: Int8); overload; deprecated;
    procedure Test(I: Int16); overload; deprecated;
    procedure Test(I: Int32); overload; deprecated;
    procedure Test(I: Int64); overload;
  public
    { Public declarations }
  end;

procedure TForm1.Test(I: ShortInt);
begin
  MessageDlg('8 bit integer',mtInformation,[mbOK],0);
end;

procedure TForm1.Test(I: Int16);
begin
  MessageDlg('16 bit integer',mtInformation,[mbOK],0);
end;

procedure TForm1.Test(I: Int32);
begin
  MessageDlg('32 bit integer',mtInformation,[mbOK],0);
end;

procedure TForm1.Test(I: Int64);
begin
  MessageDlg('64 bit integer',mtInformation,[mbOK],0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var ShI: ShortInt;
    SmI: SmallInt;
    I: Integer;
    I64: Int64;
    NatI: NativeInt;
begin
  Test(ShI);
  Test(SmI);
  Test(I);
  Test(I64);
  Test(NatI);
end;

    请注意，最后一次测试调用时，NativeInt 的返回值取决于您的应用程序是否按预期针对 32 位或 64 位架构进行编译。

    • 2

相关问题