Question

delphi中接口的定义和使用

TDemo=class(TComponent,IDEmo)
这句裏为什麽用TComponent ?可以使用TObject麽？为什麽？

Answer 1

定义接口IDemo
type
IDemo=interface
function A(i:Integer):Integer;
end;
接口内的方法不能有方法体，只能有声明。

然后你可以使用接口对象或是继承接口

type
TDemo=class(TComponent,IDEmo)
public
function A(i:Integer):Integer;
end;
随后对类内的A方法进行方法体构造
function TDemo.A(i: Integer): Integer;
begin
result:=i*2;
end;

你也可以把一个对象转换成接口
例如：
var
IImpl:IDemo;
TImpl:TDemo;
begin
TImpl:=TDemo.Create(nil);
IImpl:=IImpl(TImpl);
end;