Delphi的接口陷阱

领测软件测试网

TC2 = Class(TC1, I1)
    ATT2: Integer;
    function Do: Boolean;
end;

Intf1: I1;

OBJ1: TC!;

OBJ2: TC2;

OBJ2 := TC2.Create;
OBJ1 := OBJ2.
I1(OBJ2).DO;正确。
I1(OBJ1).DO;编译失败。

因为OBJ1的类型TC1没有声明实现I1所以不能转换成I1，即使OBJ1确实实现了I1。

还有，如果把对象转为接口再转回来也会有问题。

OBJ2 := TC2.Create;

OBJ2.ATT1 := 0;
Intf1 := OBJ2;//正确。

文章来源于领测软件测试网 https://www.ltesting.net/