太莫名其妙了,近來被Delphi的接口氣死了,請看以下代碼(注意黑體及紅色):
type
IInterface1 = interface
end;
TClass1 = class(TInterfacedObject, IInterface1)
destructor destroy; override;
end;
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那裡去。
//為什麼?為什麼?
end;