清醒时做事，糊涂时读书，大怒时睡觉，无聊时关注图老师为大家准备的精彩内容。下面为大家推荐对Delphi接口的又一疑惑：怎么会自动释构的？，无聊中的都看过来。
【 tulaoshi.com - 编程语言 】
太莫名其妙了，近来被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; 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;
end;
来源:https://www.tulaoshi.com/n/20160219/1617571.html
看过《对Delphi接口的又一疑惑：怎么会自动释构的？》的人还看了以下文章 更多>>
