Delphi 接口(3)

最新推荐文章于 2023-02-27 19:49:26 发布

转载最新推荐文章于 2023-02-27 19:49:26 发布 · 119 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/YiShen/p/9862789.html

本文通过一个具体的示例，详细解析了在面向对象编程中如何正确地声明和使用接口及类，包括接口继承、类实现多个接口等概念，并指出了常见的错误用法。

type  

IGreetable = interface
end;

IMan = interface(IGreetable)
    function SayHello():string;
end;

TChinese = class(TinterfacedObject,IMan)
    procedure SetChinese(name: string);
    function SayHello():string;
end;

procedure MyProcedure()
var
    AMan: IMan;
    Greeting: IGreetable;
begin
    AMan := TChinese.create;    //工作正常
    Greeting := TChinese.create;//错误
    AMan.SetChinese('张三');    //错误
    AMan.SayHello;              //工作正常
end;

在这个例子中:

　　*Greeting被声明为IGreetable类型的变量,因为TChinese声明实现的接口中没有列出IGreetable.

　　所以TChinese类型的实例不能赋值给Greeting.如果改变TChinnese的声明为:

TChinese = class(TinterfaceObject,IGreetable,IMan)

　　那么,第一个作物语句将变得可用:

Greeting := TChinese.create;//错误->可用

　　*AMan被声明为IMan类型的变量,虽然它可以引用TChinese类型的实例,但是我们不能用它访问TChinese的SeChinese方法,因为该方法不是IMan接口的方法.但是改变AMan的声明为:

AMan: Tchinese;

　　那么第二个错误语句将变得可用:

AMan.SetChinese('张三');    //错误->可用

转载于:https://www.cnblogs.com/YiShen/p/9862789.html