FreeAndNil no libera los recursos

[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.

[doctorhd]

nlsgarcia, citando el mismo texto que me indicas...

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

le sigue a continuacion lo siguiente:

Empezado por Marco Cantu
...Por esta razón, transmitir un objeto por referencia tendría poco sentido (aparte de casos muy especiales), porque consistiría en transmitir una referencia a otra.
Tomado de : Procedimientos y funciones en Pascal

Entonces, mi pregunta inicial:

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

sigue en pie...

Saludos

[[nlsgarcia]]

doctorhd,

Empezado por doctorhd

...mi pregunta inicial : ¿no se supone que los objetos siempre se pasan por referencia, sin necesidad de utilizar var?, sigue en pie...

Empezado por Marco Cantu

...Los objetos Delphi, de hecho, son siempre transmitidos mediante valores, porque ellos mismos son referencias. Por esta razón, transmitir un objeto por referencia tendría poco sentido (aparte de casos muy especiales)...

Tomado de : Procedimientos y funciones en Pascal

Al pasar un objeto por valor se pasa una referencia al mismo, pero al aplicar el procedimiento FreeAndNil se libera el objeto pasado por valor y se asigna nil a la copia por valor de la variable del objeto en el procedimiento y/o función de llamada, no en la variable original del objeto, luego al verificar con Assigned el valor del objeto en el procedimiento y/o función original este es diferente de nil, es por esto que este caso es un caso especial.

Espero sea útil

Nelson.

[[Al González]]

doctorhd:

Una cosa es un puntero a la instancia (referencia de objeto) y otra un puntero a una variable puntero a la instancia (referencia de variable objeto). Cuando el parámetro es "Var", estás pasando éste último. De lo contrario estás pasando el primero, copiándose ese puntero en el parámetro, el cual actúa como una simple variable objeto local. Si lo pones en Nil, sólo esa "variable" adquiere el valor de Nil; las demás variables (exteriores) que apunten a la misma instancia de objeto seguirán igual.

Espero no haberte confundido.

Saludos.

[doctorhd]

Gracias nlsgarcia y Al González por sus respuestas, me queda claro el origen del error.
Ahora a raíz del cambio indicado por ustedes, tengo el siguiente problema...(no se si sera necesario abrir un nuevo hilo)
al llamar a la función:

Código Delphi [-]
....
funGlobal.CloseObjet([FDetail]);{Destruimos las clases integrantes}
....

procedure TfunGlobal.CloseObjet(var 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}

tengo el siguiente error:

Código Delphi [-]
[dcc32 Error] ControlErroresUnit.pas(108): E2197 Constant object cannot be passed as var parameter

el cual indica que no puedo pasar una constante como parámetro a una función que requiere una variable, cuestión que no es cierta, ya que FDetail es un campo de una clase que a su vez también es una clase, aquí va la definición de ambas:

Código Delphi [-]
type
   TClassError = class
   private { Private declarations }
     FAccionOrigen:String;
     FTraceError:String;
     FMensajeError:String;
     FViewTraceError:Boolean;
     FTileMsg:string;
   public { Public declarations }
     constructor Create(AAccionOrigen:String;ATraceError:String;ATileMsg:String);
     procedure DisplayError;
     procedure SetMensajeError(AMensajeError:String);
     procedure SetViewTraceError(AViewTraceError:Boolean);
   public
     property AccionOrigen: String read FAccionOrigen;
     property TraceError: String read FTraceError;
     property MensajeError: String read FMensajeError;
     property ViewTraceError: Boolean read FViewTraceError;
   end;

type
   TControlErrores = class
   private { Private declarations }
     FDetail:TClassError;
     FTileMsg:string;
     procedure CreateMsgError(AError: Exception; AAccionOrigen:String; ATraceError:String);
     function ConstruyeMsgErroresDataSnap(AError:Exception; AAccionError:String; var AmsgSalida:String): Boolean;
     function ConstruyeMsgErroresBD(AError:Exception; AAccionError:String; var AmsgSalida:String): Boolean;
     function ConstruyeMsgErroresSistema(AError:Exception; AAccionError:String; var AmsgSalida:String): Boolean;
   public { Public declarations }
     constructor Create(AE:Exception;AAccionOrigen:String;ATileMsg:string);
     destructor Destroy; override;
     procedure DisplayError;
   public
      property Detail:TClassError read FDetail;
   end;

Saludos...