FreeAndNil VS Free

[rgstuamigo]

Empezado por Al González

.. Ignoraba que Delphi "permitiese" referencias de escritura en el parámetro Self (para mí siempre ha sido una referencia de solo lectura), pero no me extraña en absoluto que el compilador la deseche sin generar instrucción máquina alguna para esa sentencia (lo puedes verificar con la ventana CPU).
...

Muy interesante tu interversion amigo Alberto, para serte franco yo tambien ignoraba la cuestion de que el parámetro Self era solo para lectura, pero la cuestion es que Delphi no se queja al momento de hacer:

Código Delphi [-]
Self:=nil;

Si es solo para lectura y ha sido pensado para eso, pues creo que debería mostrar un error¿verdad? o no permitir directamente tal instruccion y es por eso mi confucion.
Como dije claramente en mi anterior post no tengo una solucion para lo que se pretendía hacer, el hecho de que hubiera hecho uso de Self, fué solo un intento y creo que lo explique claramente. Pero me llama la atencion el código que propones en tu clase "TMagiaClientDataSet"

Código Delphi [-]
Constructor TMagiaClientDataSet.Create (AOwner :TComponent);
  Begin
    Inherited Create (AOwner);
    AutoApplyDetails := True;
    AutoCancelDetails := True;
    AutoEdit := True;
    ChangeCheckFieldTypes := [ftString, ftSmallint, ftInteger, ftWord,
      ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
      ftAutoInc, ftFixedChar, ftWideString, ftLargeint, ftVariant, ftGuid,
      ftTimeStamp, ftFMTBcd];

    If DataSets = Nil Then
      DataSets := TDataSetList.Create;

    DataSets.Add (Self);//<- muy pero muy interesate 
  End;

La verdad que me has abierto nuevas perpectivas.., aunque no exactamente siguiende ese mismo camino. por ejemplo:

Advertencia:
Lo que voy a exponer a continuacion no significa que pueda llegar a una solucion concreta del tema, sino mas bien hacer conocer una "idea" para quizas poder implementar una solucion desde otro punto de vista.

Todos sabemos que el problema es lo siguiente:
Teniendo creado(instanciado) un formulario de una determinada clase de la siguiente forma:

Código Delphi [-]
if not Assigned(MyForm) then //<- favor poner atencion a ésta linea
   MyForm := TChildForm.Create(Application);//MyForm en una variable privada

MyForm.Show;

y sabiendo que en la clase TChildForm en su evento OnClose tenemos

Código Delphi [-]
procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;//ya sabemos que está linea provocará un liberacion del formulario atraves del método Release.
end;

Ahora el asunto es: ¿cómo lograr saber que el objeto al que hace referencia la variable "MyForm" ha sido liberado?
OJO: todos sabemos que cuando un objeto se libera, pues la referencia que le apuntaba de igual forma sigue referenciando a la misma direccion de memoria donde estaba el objeto.Es decir el espacio de memoria del objeto se libero pero su apuntador(referencia) sigue apuntadolo.
Pues ..en lo anteriores post hemos discutido que la solucion sería poner al apuntador en nulo (nil)despues de la destruccion del objeto y luego para saber si la referencia apunta a un Objeto válido podriamos poner

Código Delphi [-]
if MyForm=nil then
...

o bien usando la funcion Assigned

Código Delphi [-]
if not Assigned(MyForm) then
...

Ahora vá la pregunta ¿Existe alguna forma de determinar que la referencia de un objeto apunta a un objeto no destruido sin estar poniendola a nulo cada vez que se libera el objeto?. Es decir.. yo como programador pienso y digo hipoteticamente:"No quiero que la referencia del objeto se ponga en nulo al momento de destruirse el objeto , más bien quiero que siga apuntado a la misma direccion aunque el objeto ya esté liberado"
Pero si más adelante en mi código quisiera saber si el objeto fue destruido o nó ¿como lo haría? ¿? qué código debiera poner en lugar de

Código Delphi [-]
if MyForm=nil then// éste código ya no serviría ya que MyForm no apunta a nulo pero el objeto ya fué liberado
...

o bien

Código Delphi [-]
if not Assigned(MyForm) then //tampoco sirve
...

¿Cómo lo soluciono?¿Delphi posee algun mecanismo o funcion que me permita solucionarlo?