Cơ bản của "Tự do" trong Delphi

Question

Tôi có một nghi ngờ cơ bản trong Delphi. Khi tôi giữ bất kỳ thành phần lúc thiết kế, nói ví dụ TADOConnectuion và trên nút nhấp chuột ngay cả tôi viết sau mã sau đó tôi không nhận được bất kỳ lỗi:

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

Nhưng nếu tôi tạo ra cùng một đối tượng tại thời gian chạy như follwos tôi nhận được "truy cập vi phạm ..." lỗi

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

tôi nhận được lỗi tương tự mặc dù tôi tạo ra các đối tượng như sau:

ADOConnection := TADOConnection.create(nil); 

Chỉ cần muốn biết lý do đằng sau hành vi như vậy, tức là Tại sao không có lỗi khi tôi giữ thành phần tại thời điểm thiết kế?

Answer 1

Nếu bạn giải phóng một thành phần, trường tương ứng của nó trong chủ sở hữu sẽ bị xóa. Nếu bạn thêm một thời gian thiết kế ADOConnection, sau đó

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

Bạn có thể thấy điều này bằng cách bắt nó trong một biến:

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

Điều đó sẽ không làm việc, ngay cả khi ADOConnection được tạo ra vào thời điểm thiết kế.

Dưới đây là một ví dụ với một thành phần TButton thể hiện như thế nào hành vi mà bạn nhìn thấy cho các thành phần thiết kế thời gian không phải là cụ thể để thiết kế thời gian thành phần:

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. 

Answer 2

Kết nối ADOC ban đầu là không, vì vậy nếu bạn giải phóng nó, chức năng miễn phí sẽ không làm bất cứ điều gì vì con trỏ giao cho nó là không. Con trỏ vẫn giữ nguyên trong các cuộc gọi tiếp theo, vì vậy miễn phí không làm gì cả. Khi bạn khởi tạo ADOConnection bằng tạo, con trỏ được giữ trong ADOConnection không còn nil nữa, vì vậy cuộc gọi đầu tiên miễn phí sẽ chủ động giải phóng con trỏ, nhưng các cuộc gọi tiếp theo sẽ thấy rằng bộ nhớ đã được giải phóng và tăng một ngoại lệ. Con trỏ không bị thay đổi bởi cuộc gọi miễn phí. Cho rằng, bạn cần freeandnil thay thế.