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

肉肉的RORO

于 2016-01-08 00:05:50 发布

阅读量553

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi(编程语言) 文章标签： delphi class interface

本文链接：https://blog.youkuaiyun.com/iamluole/article/details/50479940

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

18 篇文章

订阅专栏

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

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

以前没想过这个问题，只知道接口中的方法不带可见度说明符，都是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;

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