FreeAndNil no libera los recursos

[doctorhd]

ecfisa, entonces de que forma puedo validar que un objeto a sido liberado. Pensé que freeandnil, liberaba los recursos y establecía su valor a nil, por lo cual assigned debería devolver false....

Saludos

[[nlsgarcia]]

doctorhd,

Empezado por doctorhd

...Pensé que FreeAndNil, liberaba los recursos y establecía su valor a nil...

Es exactamente lo que hace FreAndNil y es lo que se demuestra en el código del Msg #2.

Revisa esta información:



Espero sea útil

Nelson.

[doctorhd]

nlsgarcia, entonces porque si al aplicar freandnil en mi código no establece el valor del objeto nil...
Saludos

[[nlsgarcia]]

doctorhd,

Empezado por doctorhd

...porque si al aplicar FreeAndNil en mi código no establece el valor del objeto nil...

Te sugiero hacer un debug al código en cuestión para verificar, cuando se aplica el FreeAndNil y cuando se verifica con Assigned la existencia del objecto.

Solo a modo de pruebas puedes aplicar un FreeAndNil al objeto en cuestión justo antes de comprobar el mismo con Assigned y veras lo comentado en los Msg #2 y #4

Espero sea útil

Nelson.

[[nlsgarcia]]

doctorhd,

Empezado por doctorhd

...porque si al aplicar FreeAndNil en mi código no establece el valor del objeto nil...

El problema radica en que estas pasando los objetos por valor y no por referencia al método TfunGlobal.CloseObjet.

Revisa este código

Código Delphi [-]
unit Unit1;

interface

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

type

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TNelson = class
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure CloseNelson(var Nelson : Array of TNelson);
var
   i : Integer;
begin
   for i:= Low(Nelson) to High(Nelson) do
      if Assigned(Nelson[i]) then
         FreeAndNil(Nelson[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Nelson : Array[0..1] of TNelson;
   i : Integer;

begin

   for i := Low(Nelson) to High(Nelson) do
      Nelson[i] := TNelson.Create;

   for i := Low(Nelson) to High(Nelson) do
      if Assigned(Nelson[i]) then
         MessageDlg(Format('Instancia %d de la clase Nelson',[i]),mtInformation,[mbOK],0)
      else
         MessageDlg(Format('Elemento %d del arreglo de clase Nelson no instanciado',[i]),mtInformation,[mbOK],0);

   for i := Low(Nelson) to High(Nelson) do
      if Assigned(Nelson[i]) then
         FreeAndNil(Nelson[i]);

   for i := Low(Nelson) to High(Nelson) do
      if Assigned(Nelson[i]) then
         MessageDlg(Format('Instancia %d de la clase Nelson',[i]),mtInformation,[mbOK],0)
      else
         MessageDlg(Format('Elemento %d del arreglo de clase Nelson no instanciado',[i]),mtInformation,[mbOK],0);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
   Nelson : Array[0..1] of TNelson;
   i : Integer;

begin

   for i := Low(Nelson) to High(Nelson) do
      Nelson[i] := TNelson.Create;

   for i := Low(Nelson) to High(Nelson) do
      if Assigned(Nelson[i]) then
         MessageDlg(Format('Instancia %d de la clase Nelson',[i]),mtInformation,[mbOK],0)
      else
         MessageDlg(Format('Elemento %d del arreglo de clase Nelson no instanciado',[i]),mtInformation,[mbOK],0);

   CloseNelson(Nelson);

   for i := Low(Nelson) to High(Nelson) do
      if Assigned(Nelson[i]) then
         MessageDlg(Format('Instancia %d de la clase Nelson',[i]),mtInformation,[mbOK],0)
      else
         MessageDlg(Format('Elemento %d del arreglo de clase Nelson no instanciado',[i]),mtInformation,[mbOK],0);

end;

end.

En el código anterior en Delphi 7 sobre Windows 7 Professional x32, el método TForm1.Button1Click instancia y libera objetos de la clase TNelson directamente, pero en el método TForm1.Button2Click la liberación de los objetos de la clase TNelson se hace por medio del procedimiento CloseNelson al cual se le pasa por referencia un arreglo de objetos TNelson, si el paso fuera por valor solo se aplicaria nil a los objetos actuales del arreglo Nelson del procedimiento CloseNelson, no a los objetos originales del arreglo Nelson del método TForm1.Button2Click, sin embargo los objetos serían liberados dado que el paso por valor contiene la referencia a los mismos.

La solución es :

Código Delphi [-]
procedure TfunGlobal.CloseObjet(var AObjeto : Array of TObject);
var
   vIndice : Integer;
begin
  for vIndice := Low(AObjeto) to High(AObjeto) do
    if Assigned(AObjeto[vIndice]) then
       FreeAndNil(AObjeto[vIndice]);
end;

Espero sea útil

Nelson.

[doctorhd]

nlsgarcia, Creo que ya encontré el error, este esta en la función que utilizo para cerrar los objetos:

Código Delphi [-]
procedure TfunGlobal.CloseObjet(AObjeto:Array of TObject);
var vIndice:Integer;
begin
  for vIndice:= Low(AObjeto) to High(AObjeto) do begin
    if Assigned(AObjeto[vIndice]) then FreeAndNil(AObjeto[vIndice]){Liberamos la memoria}
  end;{for}
end;{procedure}

Al parecer ciertos objetos se pasan por valor y no por referencia, ya que dentro del procedure freeandnil hace su trabajo y libera la memoria y los deja en nil, pero al salir del procedure dichos cambios no tienen efecto. Es muy raro ya que hasta donde se los objetos o clases siempre se pasan por referencia. Quizás exista algún error en la declaración del array que contiene los objetos...

saludos...

[[nlsgarcia]]

doctorhd,

Empezado por doctorhd

...ya encontré el error, este esta en la función que utilizo para cerrar los objetos...Quizás exista algún error en la declaración del array que contiene los objetos...

Te sugiero revisar y probar todo lo comentado en el Msg #7.

Espero sea útil

Nelson.

[doctorhd]

nlsgarcia, no había visto tu mensaje anterior...Al parecer llegamos a la misma conclusión, pero ahora mi duda es, ¿no se supone que los objetos siempre se pasan por referencia, sin necesidad de utilizar var...?

Saludos y gracias por tu ayuda..

[[nlsgarcia]]

doctorhd,

Empezado por doctorhd

...¿no se supone que los objetos siempre se pasan por referencia, sin necesidad de utilizar var?...

Empezado por Marco Cantu

...Los objetos Delphi, de hecho, son siempre transmitidos mediante valores, porque ellos mismos son referencias...

Tomado de : Procedimientos y funciones en Pascal

Espero sea útil

Nelson.