interface的内存自动释放的例子1

最新推荐文章于 2024-07-24 18:52:01 发布

原创最新推荐文章于 2024-07-24 18:52:01 发布 · 270 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #接口

Delphi 专栏收录该内容

12 篇文章

订阅专栏

本文探讨了在Delphi中使用接口和类时的内存管理差异，通过实例展示了当创建多个接口和类实例时，关闭窗口可能导致的内存泄露情况。文章深入分析了这种现象背后的原因，并提供了理解内存管理机制的视角。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  IMyinterface = interface
    function GetResult: Double;
  end;

  TMyClass = class(TInterfacedObject, IMyinterface)
    function GetResult: Double;
  end;

  TForm1 = class(TForm)
    btnInterface: TButton;
    btnClass: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnInterfaceClick(Sender: TObject);
    procedure btnClassClick(Sender: TObject);
  private
    { Private declarations }
    FMyinterface: IMyinterface;
    FMyClass: TMyClass;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnClassClick(Sender: TObject);
begin
  FMyClass := TMyClass.Create;
  FMyClass := TMyClass.Create;
  FMyClass := TMyClass.Create;                       //关闭窗口的时候会报内存泄露
end;

procedure TForm1.btnInterfaceClick(Sender: TObject);
begin
  FMyinterface := TMyClass.Create;
  FMyinterface := TMyClass.Create;
  FMyinterface := TMyClass.Create;                    //关闭窗口的时候不会报内存泄露
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ReportMemoryLeaksOnShutdown := True;
end;

{ TMyClass }

function TMyClass.GetResult: Double;
begin
  Result := 10;
end;

end.