Delphi 接口(5)-接口与类型转换

转载于 2018-10-27 19:40:00 发布 · 386 阅读

0 ·

CC 4.0 BY-SA版权

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

本文介绍了一种使用接口和类型转换的方法。定义了IFoot和IBall两个接口，并创建了一个TFootball类，该类实现了这两个接口。通过实例化TFootball类并将其转换为IFoot接口，展示了合法的类型转换过程。进一步地，文章演示了如何将IFoot类型的对象再转换为IBall类型。

//接口与类型转换

type
IFoot: interface
['|0000-0000-0000-0000|']
end;

IBall = interface
['|0000-0000-0000-0001|']
end;

TFootball = calss(TinterfacedObject,IFoot,IBall)
end;

implementation

procedure Test(FB: TFootball)
var 
    F:IFoot
begin
  F := FB;//合法,因为FB支持IFoot
end;

var
    FB: TFootball;
    F: IFoot;
    B: IBall;
begin
  FB := TFootBall.Create;
  F := FB;//合法,因为FB支持IFoot
  B := F as IBall;//把F(IFoot)转为IBall
end;