Static methods 静态方法

最新推荐文章于 2024-03-21 20:16:33 发布

haha00007

最新推荐文章于 2024-03-21 20:16:33 发布

阅读量726

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/haha00007/article/details/9157259

Delphi 专栏收录该内容

1 篇文章

订阅专栏

本文深入探讨了Delphi编程环境中静态方法的特性与应用，通过具体实例展示了静态方法如何根据编译期声明的类型激活不同的实现方式。文章详细解释了静态方法在不同类上下文中的调用过程，以及实例代码演示了如何在不同场景下灵活运用静态方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Delphi联机帮助原文：

Methods are by default static. When a static method is called, the declared (compile-time) type of the class or object variable used in the method call determines which implementation to activate.如果一个方法没有特别声明，那么默认为静态方法。当调用静态方法时，根据方法中类或者对象变量的编译期声明类型来决定调用哪个方法。

例如下例中，Classify就是静态方法。

{ TCoder }

constructor TCoder.Create;
begin
  FClassName := 'TCoder';
end;

function TCoder.Classify: string;
begin
  Result := ClassName;
end;

{ TDelphiCoder }

constructor TDelphiCoder.Create;
begin
  FClassName := 'TDelphiCoder';
end;

function TDelphiCoder.Classify: string;
begin
  Result := ClassName;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Coder: TCoder;
  DelphiCoder: TDelphiCoder;
begin
  Coder := TCoder.Create;
  ShowMessage(Coder.Classify); //Coder声明为TCoder类型，调用TCoder.Classify，显示TCoder
  Coder.Destroy;

  Coder := TDelphiCoder.Create;
  ShowMessage(Coder.Classify); //Coder声明为TCoder类型，调用TCoder.Classify，由于TDelphiCoder.Create未对TCoder的ClassName属性赋值，故显示为空
  ShowMessage(TDelphiCoder(Coder).Classify); //编译时将Coder转换为TDelphiCoder类型，调用TDelphiCoder.Classify，显示TDelphiCoder
  Coder.Destroy;

  DelphiCoder := TDelphiCoder.Create;
  ShowMessage(DelphiCoder.Classify); //DelphiCoder声明为TDelphiCoder类型，调用TDelphiCoder.Classify，显示TDelphiCoder
  DelphiCoder.Destroy;
end;