delphi - Delphi 的 static 关键字在纯 native 代码中是否有任何意义？

Question

我的理解是引入 static 关键字是为了与 .NET 兼容(以及 strict)

class TExample
  class procedure First;
  class procedure Second; static;

过程First和Second之间的区别是:-

1. First 可以在后代类中被覆盖
2. First 传递引用 TExample 类的隐式 self 参数。

类过程Second 无法被重写，并且不传递任何参数，因此与.NET 兼容。既然 Delphi 和 Prism 语法之间存在差异，那么在纯 native 代码中使用 static 关键字还有什么意义呢？

Answer 1

Static class methods have no hidden class reference argument 。因此，它们与普通旧函数指针的赋值兼容，因此可用于与 Windows API 和其他 C API 进行交互。示例:

type
  TForm = class
  private
    class function NonStaticWndProc (wnd: HWND; Message: Cardinal;
      wParam: WPARAM; lParam: LPARAM): LRESULT;
    class function StaticWndProc (wnd: HWND; Message: Cardinal;
      wParam: WPARAM; lParam: LPARAM): LRESULT; static;
    procedure RegisterClass;
  end;

procedure TForm.RegisterClass;
type
  TWndProc = function (wnd: HWND; Message: Cardinal;
    wParam: WPARAM; lParam: LPARAM): LRESULT;
var
  WP: TWndProc;
  WindowClass: WNDCLASS;
begin
  //WP := NonStaticWndProc; // doesn't work
  WP := StaticWndProc; // works
  // ...
  TWndProc (WindowClass.lpfnWndProc) := WP;
  Windows.RegisterClass (WindowClass);
end;

(当然，您可以使用全局函数，但除了全局函数之外，静态类函数与类有明确的关联。)