面向接口编程问题

Question

我是想把类和接口单元分开成两个单元  然后只要引用接口单元调用函数 类单元
unit Un_Class;interfaceuses System.Classes,Un_Interface;type
   TTest=class(TInterfacedObject,ITest)
    public
    function getdate(value:string):string;overload;
    function getvalue:string;overload;
  end;
implementation{ TTest }
function TTest.getdate(value:string):string;
begin
 Result:=value
end;function TTest.getvalue: string;
begin
 Result:='fffff';
end;
end.接口单元
unit Un_Interface;interfaceuses System.Classes; type
  ITest=interface(IInterface)
  ['{4F3260EB-99D2-47E4-89BE-7D8862CB05F7}']
  function getdate(value:string):string;
  function getvalue:string;
  end;implementationend.最后在主窗口调用
 uses Un_Interface;procedure TForm1.Button1Click(Sender: TObject);
var aa:ITest ;
begin
ShowMessage(aa.getvalue);
end;
执行会出现地址错误。 请问怎么整呢？
 

Answer 1

首先要创建对象，再赋值给接口变量。
uses Un_Class,Un_Interface;procedure TForm1.Button1Click(Sender: TObject);
var aa:ITest ;
begin
    aa := TTest.Create;
    ShowMessage(aa.getvalue);
end;