为何将重载私有过程赋值给局部变量后会触发H2219警告？

先把你贴的代码整理成更易读的格式：

type
  TMyTestWithoutParam = procedure() of object;
  TMyTestIntegerParam = procedure(APar : integer) of object;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure Test(); overload;
    procedure Test(APar : integer); overload;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  TmpA : TMyTestWithoutParam;
  TmpB : TMyTestIntegerParam;
begin
  TmpA := Test;
  TmpA();
  TmpB := Test;
  TmpB(1);
end;

procedure TForm1.Test();
begin
  //...
end;

procedure TForm1.Test(APar : Integer);
begin
  //...
end;

为什么会出现H2219警告？ #

这其实是Delphi编译器静态分析的一个小盲区。当你把重载的私有方法直接赋值给方法变量时，编译器虽然能在运行时正确匹配对应的重载版本，但在静态检查阶段，它没办法把“通过方法变量赋值”这个操作，准确关联到对应私有方法的使用上。

简单说，编译器看到TmpA := Test;和TmpB := Test;时，虽然能推断出分别对应无参和带参的Test，但它的代码扫描逻辑没把这种赋值标记为“方法已被使用”，所以误判其中一个重载是未被使用的私有符号，抛出了H2219警告。

正确的规避方式 #

这里有几个靠谱的解决方案，按推荐程度排序：

1. 显式类型转换（最推荐） #

给赋值语句加上明确的类型强制转换，直接告诉编译器你要绑定哪个重载版本。这样编译器能清晰识别两个重载都被使用了，警告自然就消失了：

procedure TForm1.FormCreate(Sender: TObject);
var
  TmpA : TMyTestWithoutParam;
  TmpB : TMyTestIntegerParam;
begin
  TmpA := TMyTestWithoutParam(Test);
  TmpA();
  TmpB := TMyTestIntegerParam(Test);
  TmpB(1);
end;

2. 使用方法地址操作符@ #

在方法名前加上@操作符，明确告诉编译器你要获取方法的地址，这也能帮助编译器识别到方法被引用：

procedure TForm1.FormCreate(Sender: TObject);
var
  TmpA : TMyTestWithoutParam;
  TmpB : TMyTestIntegerParam;
begin
  TmpA := @Test;
  TmpA();
  TmpB := @Test;
  TmpB(1);
end;

3. 临时抑制警告（不推荐） #

如果前面两种方法你都不想用，可以用编译器指令临时关闭H2219警告，但这种方法是“治标不治本”——它会屏蔽所有该类型的警告，万一你真的有未使用的私有方法，就会错过提示：

TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
private
  {$WARN H2219 OFF}
  procedure Test(); overload;
  procedure Test(APar : integer); overload;
  {$WARN H2219 ON}
end;

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