大家好,我是HuangJacky,技术交流.
这个是在工作发现的一个问题,而且是很久的问题了.当时已经写成文章了.但是(往往时常都有这个但是)系统挂了,文章还没有发出来.
好,赶紧发出来.
首先还原下问题:(这个 插件居然没有Pascal)
1: //首先定义具有继承关系的接口
interface
3: procedure TalkBase;
end;
5:
interface(IBase)
7: procedure TalkDerive;
end;
9: //实现的类
class(TInterfacedObject, IBase)
11: procedure TalkBase;
end;
13:
class(TBase, IDerive)
private
Integer;
public
18: constructor Create();
19: procedure TalkBase;
20: procedure TalkDerive;
end;