Fondamentale di "Libero" a Delphi

Question

Ho un dubbio fondamentale in Delphi. Quando io continuo a qualsiasi componente in fase di progettazione, diciamo per esempio TADOConnectuion e sul pulsante di scatto anche Scrivo seguente codice quindi non ottengo alcun errore:

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

Ma se creo lo stesso oggetto in fase di esecuzione, come follwos I ottenere "Violazione di accesso ..." errore

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

ottengo lo stesso errore anche se creo l'oggetto come di seguito:

ADOConnection := TADOConnection.create(nil); 

Proprio vorrei sapere il motivo dietro tale comportamento, vale a dire . perché non c'è errore quando tengo il componente in fase di progettazione?

Answer 1

Se si libera un componente, il campo corrispondente nel proprietario viene cancellato. Se si aggiunge un design-time ADOConnection, poi

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

Potete vedere questo catturando in una variabile:

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

che non funzionano, anche quando ADOConnection viene creato in fase di progettazione.

Ecco un esempio con una componente TButton che dimostra come il comportamento che si vede per i componenti in fase di progettazione non è specifico per la progettazione di componenti in tempo:

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

ADOConnection è inizialmente nullo, quindi se lo si libera, la funzione gratuita non farà nulla perché il puntatore che ha consegnato è nullo. Il puntatore rimane nullo nelle chiamate successive, quindi continua a non fare nulla. Quando si inizializza ADOConnection con create, il puntatore contenuto in ADOConnection non è più nullo, quindi la prima chiamata a free libererà attivamente il puntatore, ma le chiamate successive vedranno che la memoria è già stata liberata e genererà un'eccezione. Il puntatore non viene modificato dalla chiamata a free. Per quello, avresti bisogno di freeandnil invece.