Question

我在下面的代码中为用户类显示了一个简短的设计模式。

type
  MytestClass = class
    alist: TStringlist;
  public
    constructor Create;
    destructor destroy; override;
  end;
  { MytestClass }

type
  TForm1 = class(TForm)
    btn_version01: TBitBtn;
    btnversion02: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure btn_version01Click(Sender: TObject);
    procedure btnversion02Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

    btestClass : MytestClass;
    aComplexClassDesign : TComplexClassDesign;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor MytestClass.Create;
begin
  alist := TStringlist.Create;
end;

destructor MytestClass.destroy;
begin
  alist.free;
  inherited;
end;


procedure TForm1.btnversion02Click(Sender: TObject);
var atestClass : MytestClass;
begin
     ///
  atestClass :=MytestClass.Create;
  atestClass.Free;
  atestClass := nil;
end;

procedure TForm1.btn_version01Click(Sender: TObject);
var atestClass : MytestClass;
begin
     ///
  atestClass :=MytestClass.Create;
  atestClass.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  btestClass.free;
  aComplexClassDesign.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  btestClass :=MytestClass.Create;
  aComplexClassDesign :=TComplexClassDesign.Create;
end;

end.

希望这是一个完美的设计，没有内存泄漏和访问冲突。我在实际应用程序中使用的所有类都是按照这种模式设计的。

在上面的代码中，我的TComplexClassDesign上的FastMM4没有出现任何问题。在真正的应用程序中，FASTMM4报告了我的TComplexClassDesign的内存泄漏，甚至我在窗体的Close Event中调用了free函数。如果我单步执行代码以确保执行此功能。知道如何调试这个内存泄漏报告，任何选项都可以看到尚未发布的TComplexClassDesign实例？我得到这个奇怪的内存泄漏报告的任何其他原因？

奖金问题：

DUnit总是像这样制作拆解代码

  atestClass :=MytestClass.Create;
  atestClass.Free;
  atestClass := Nil

真的需要最后一行代码吗？

Answer 1

将OnCreate与OnClose匹配是错误的。那些事件不是一对。在构造期间调用OnCreate事件。销毁的匹配事件是OnDestroy。您在OnCreate中创建的任何内容都应在OnDestroy中销毁。

我个人认为OnCreate和OnDestroy没什么价值。我总是选择覆盖虚构造函数和析构函数。

procedure TForm1.FormCreate(Sender: TObject);
begin
  btestClass :=MytestClass.Create;
  aComplexClassDesign :=TComplexClassDesign.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  btestClass.free;
  aComplexClassDesign.Free;
end;

作为一般规则，按创建的相反顺序销毁对象。这没关系，但如果对象有依赖关系，那么顺序有时很重要。

procedure TForm1.btnversion02Click(Sender: TObject);
var atestClass : MytestClass;
begin
  atestClass :=MytestClass.Create;
  atestClass.Free;
  atestClass := nil;
end;

将nil分配给atestClass是否有意义？绝对不。此变量在赋值后立即离开作用域，因此任何其他代码都无法观察到结果赋值。我希望编译器能够对此发出警告。它会在您进行分配时发出警告，但从不使用指定的值。我希望你已启用警告。

最后，为什么你的真实代码有内存泄漏？无法从这里说出来。 FastMM的完整调试版本为泄漏报告提供了丰富的堆栈跟踪。这些跟踪将包括导致分配泄漏对象的调用堆栈。

Answer 2

奖金回答：

即使你叫免费，atestClass仍将指向一个内存地址。如果您在免费调用后尝试访问内存，则可能是因为其他内容正在使用该内存位置而访问错误数据，或者如果内存不再可访问则会获取访问冲突。

如果free是函数中的最后一行然后退出/返回则可能不需要...

内存泄漏与访问冲突，类设计问题

2 个答案: