面向接口编程问题

Question

编程class类interface

Answer 1

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

Answer 2

当然，你如果不想引用Un_Class单元，可以在Un_Interface单元中建立一个函数进行对象创建并返回接口变量。

Answer 3

interface,说白了只是一个函数指针地址表，一定要建立对象实体。程序才能跳转到对象实体的代码段执行。