delphi - Delphi中 "Free"的基本原理

Question

我对 Delphi 有一个根本性的怀疑。当我在设计时保留任何组件时，例如 TADOConnectuion 并单击按钮，即使我编写以下代码，也不会收到任何错误:

begin
  ADOConnection.Free;  //No error
  ADOConnection.Free;  //No error
  ADOConnection.Free;  //No error
end;

但是，如果我在运行时创建与以下对象相同的对象，则会收到“访问冲突...”错误

begin
  ADOConnection := TADOConnection.create(self);
  ADOConnection.Free;  //No error
  ADOConnection.Free;  //Getting an "Access Violation..." error
end;

即使我创建如下对象，我也会遇到相同的错误:

ADOConnection := TADOConnection.create(nil);

只是想知道这种行为背后的原因，即为什么当我在设计时保留组件时没有错误？

Answer 1

如果释放组件，则其所有者中的相应字段将被清除。如果添加设计时 ADOConnection，则

ADOConnection.Free; // Frees ADOConnection and sets ADOConnection to nil
ADOConnection.Free; // Does nothing since ADOConnection is nil

您可以通过将其捕获到变量中来看到这一点:

var c: TADOConnection;
c := ADOConnection;
c.Free; // Frees ADOConnection and sets ADOConnection to nil
c.Free; // Error: c is not set to nil

即使在设计时创建了 ADOConnection，这也是行不通的。

下面是一个包含 TButton 组件的示例，它演示了您看到的设计时组件的行为为何并非特定于设计时组件:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  published
    Button: TButton;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Assert(not Assigned(Button));
  TButton.Create(Self).Name := 'Button'; // Button field gets set
  Assert(Assigned(Button));
  Button.Free;                           // Button field gets cleared
  Assert(not Assigned(Button));
  Button.Free;                           // Okay, Free may be called on nil values
end;

end.