delphi - 如何确定方法所需的最低可见性？

Question

作为大型重构项目的一部分，我需要确定不再使用的方法，或者可以降低可见性的方法。

考虑以下代码:

program Project1;

type
  TMyClass = class(TObject)
  private
    function Method1 : integer;
  public
    function Method2 : integer;
    function Method3 : integer;
    function Method4 : integer;
  end;

var
  vMyObject : TMyClass;

function TMyClass.Method1: integer;
begin
  Result := Method2;
end;

function TMyClass.Method2: integer;
begin
  Result := 2;
end;

function TMyClass.Method3: integer;
begin
  Result := 3;
end;

function TMyClass.Method4: integer;
begin
  Result := 4;
end;

begin
  vMyObject := TMyClass.Create;
  try
    writeln(vMyObject.Method3);
  finally
    vMyObject.Free;
  end;
end.

Delphi 编译器给出警告“[DCC Hint] Project1.dpr(6): H2219 Private symbol 'Method1'声明但从未使用”，这是非常有帮助的。但我想警告此代码还有其他问题:

1. 从未使用过 Method4，但由于它是公开的，所以我没有收到警告。
2. 方法 2 被声明为公开，但仅用于私有(private)用途。

有什么工具可以用来识别此类问题吗？

Answer 1

Pascal Analyzer可以做到，还有更多案例。