TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
class1: IInterface1; //注意這裡是接口IInterface1 ,不是類TClass1 ,TClass1 是沒有這個問題出現的
public
{ Public declarations }
end;
implementation
{$R *.dfm}
{ TClass1 }
destructor TClass1.destroy;
begin
ShowMessage('Destroy!');
inherited;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
class1 := TClass1.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
class1 := nil; //就是這裡,他會自動跳到destroy那裡釋構。
//如果class1是類TClass1,則不會跳到destroy那裡去。
//為什麼?為什麼?