Delphi类在实现接口时，可以任意的升降接口方法的可见度。

最新推荐文章于 2025-09-16 15:51:15 发布

原创最新推荐文章于 2025-09-16 15:51:15 发布 · 560 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #class #interface

Delphi(编程语言) 专栏收录该内容

18 篇文章

订阅专栏

本文介绍在DELPHI编程中如何灵活调整接口方法的可见度，通过示例代码展示如何在类实现中改变接口方法的访问级别。

以前没想过这个问题，只知道接口中的方法不带可见度说明符，都是public的，原来DELPHI类在实现接口时，可以任意的升降接口方法的可见度。

IMyInterface=interface(IInterface)
  procedure p1;
  procedure p2;
  end;

  TMyClass = class(TinterfacedObject,IMyInterface)
  private
    FmyValue:integer;
    procedure p1;
  protected
    procedure myMethod;
  public
    procedure IMyInterface.p2 = MyMethod;
  published
  end;

implementation

{ TMyClass }

procedure TMyClass.myMethod;
begin
  showmessage('MyMethod');
end;

procedure TMyClass.p1;
begin
  showmessage('I comes from Interface.');
end;

如上代码，可以直接将方法实现为任意可见度，也可以用方法决定子句。