Optimizacion del Uso de la memoria
 

Hola amigos,
Tengo una aplicacion en delphi5 en la cual estoy optimizando el uso de la memoria. Ahora bien, para liberar la memoria que utilizan mis formularios estoy utilizando las siguientes sentencias en el evento Close de cada formulario:

procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
FrmVentasClienteExpress := Nil;
FrmVentasClienteExpress.Free;
end;


En mis consultas estoy utilizando lo siguiente:

qry1:= CrearConsulta ('SELECT CUENTA FROM FACTURA_BISTRO WHERE ESTATUS > 0 AND CUENTA_PRINCIPAL = "' + qry1.fieldbyname('CUENTA').AsString + '"');
result := qry2.RecordCount > 0;
qry1 := Nil;
qry1.Free;

Mi consulta en base a esto es la siguiente: Estoy utilizando de buena manera el codigo para optimizar el uso de la memoria??.

Lo normal sería que esto te tirase una Error Access Violation Exception... Si lo haces al revés (primero el Free y luego asignar el Nil), tiene que funcionar.

De todas formas, en una época dónde la cantidad de RAM se mide en gigas y ya hay discos duros de terabyte, vale la pena perder el tiempo en salvar una docena de kbytes? (Programando en microcontroladores ya es otra cosa...)

Por supuesto que la memoria es y será siempre un bien preciado, pero a lo que yo me refiero es que con "programar con cabeza" es suficiente.

Todavía soy muy novato en Delphi (lo mio era Java y VB.NET), y por lo que veo, por norma general los forms son creados en memoria cuando se inicializa la aplicación (no es como el java, que lo normal era form=new MiJFormulario(); form.showModal(); form=null), y por tanto es el propio Delphi quien lo destruye.

En otras palabras, yo soy partidario de destruir/liberar ÚNICAMENTE lo que yo he creado. Si lo ha hecho el IDE, o una clase por mi, debe ser el IDE o la citada clase quien libere los recursos que ha pedido.

Saludos,

Marc

Es así.

Tú sólo tienes que liberar lo que tú has creado.
En tu caso:
Y este caso, si qry1 es un query que has creado tú, puedes eliminarlo con:
Y fíjate en lo que te ha dicho Ñuño, primero free, luego pones a nil

Hola,

Código Delphi [-]
procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
FrmVentasClienteExpress := Nil;
FrmVentasClienteExpress.Free;
end;

creo que aqui iria mejor el .Release. Un saludo.

PD: self.release incluso, aunque estes trabajando con solo una instancia de TFrmVentasexpress.
PDD: mas o menos lo que dijo casimiro en su primer parrafo :)

Efectivamente Casimiro, Los formularios los creo Yo segun este codigo:

If not Assigned(FrmVentasClienteExpress) then
FrmVentasClienteExpress := tFrmVentasClienteExpress.Create(Self);

Luego lo muestro y posteriormente en el Close desearia liberar la memoria

Si lo hago segun este codigo me despliega un mensaje de "access violation":

procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
FrmVentasClienteExpress.Free;
FrmVentasClienteExpress := Nil;
end;

Pero si lo hago de esta manera funciona:

procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
FrmVentasClienteExpress := Nil;
FrmVentasClienteExpress.Free;
end;

No se si de esa manera el Free posterior al nil esta sobrando osea dejar algo asi:

procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
FrmVentasClienteExpress := Nil;
end;


Tambien estuve utilizando este codigo:

If not Assigned(FrmVentasClienteExpress) then
FrmVentasClienteExpress := tFrmVentasClienteExpress.Create(Self);
Try
FrmVentasClienteExpress.ShowModal;
finally
FrmVentasClienteExpress.Free;
FrmVentasClienteExpress := Nil;
end;
Aca el problema esta en que si ocurre una excepcion el sistema se queda congelado "pegado" y hay que volcar la tarea desde el administrador de tareas de windows.

Que piensan.....

Gracias por la valiosa ayuda!!!

Normalmente yo uso lo siguiente:

Para formularios mdi creados desde el menu o de una barra de herramientas:

Código Delphi [-]
   ///Para Crearlos
    if not Assigned(tuForm) then //SI El form no esta creado
    Begin
        tuForm:= TtuForm.Create(nil);
    END
    ELSE;
       tuForm.Show;
       tuForm.WindowState:=wsMaximized;
    End;
    ///Para Liberarlos en el evento OnClose
    FreeAndNil(tuForm);

Si son formularios Modales:

Código Delphi [-]
///Se crea y se Libera desde el mismo evento en el menu o en la barra de herramientas
  tuForm:= TtuForm.Create(nil);
  Try
      tuForm.ShowModal;
  Finally
      FreeAndNil(tuForm);
  End;

Espero te sirvan, recuerda que deben estar quitados de la autocreacion del proyecto.

Saludos

aFunez, gracias por tus comentarios.

En el caso de los formularios modales en el evento Close, pones algo?, que pasa si hay una excepcion?, el sistema se queda pegado?.

En los formularios mdi basta con la linea que me indicas o hay algo mas?.

Ahora es necesario que al crear los fomularios utilice "nil" en lugar del "self"?

De este modo sólo debes dejar el caFree, lo otro sobra.

Y esto también es correcto, yo lo uso cuando necesito coger el valor de alguna variable o dato del form que se está cerrando... PERO, no uses caFree en el form frmVentasclienteExpress porque estarías igualmente liberando con free y poniendo a nil algo que ya no existe, debes usar, por ejemplo, caHide, esto te oculta el form y luego lo liberas tal y como haces o con freeandnil

Los formularios modales si te das cuenta en la programacion del boton que lo crea tambien esta el codigo para liberarlos, el FreeAndNil Lo hace todo, en el caso que preguntas si hay una excepcion o el sistema se queda pegado; recuerda que el formulario modal no te dejara operar nada mas mientras este en frente de la aplicacion, la unica excepcion puede ser propiamente en el formulario modal que tienes en frente.

Los MDI, igualmente lo creas y en el onclose lo unico que necesitas es el FreeAndNil, la diferencia es que los mdi los puedes minimizar y trabajar en otro

Saludos

Ok, entendido.

Muchas gracias a todos los que colaboraron con el tema, con ello amplie aun mas mis conocimientos.

Muchas Bendiciones....

Un par de comentarios.

Primero, poner un objeto en nil y luego llamar al método Free no causa ningún problema. Es justamente la virtud de Free, que puede invocarse aún sobre nil. Otra cosa es que en el código propuesto sea innecesario y, de hecho, no es recomendable llamar al destructro de un formulario desde un evento del formulario.

Por otro lado, aun cuando estoy de acuerdo en cuidar el uso de memoria y recursos en general, en mi opinión tampoco hay que exagerar. Crear y destruir cada query sobre la marcha es exagerado. Incluso, si un formulario es usado con frecuencia durante el transcurso de una aplicacíon (por ejemplo, un catálogo de productos) me parece más indicado tenerlo siempre presente y no estarlo creando y destruyendo a cada momento.

// Saludos

Yo uso esto
 

Hola amigos, después de leer este tema les propongo utilizar este fragmento de código luego que hagan el Free.

Código Delphi [-]
procedure Optimizar_memoria;
var
  MainHandle : THandle;
begin
  try
    MainHandle := OpenProcess(PROCESS_ALL_ACCESS, False, GetCurrentProcessID);
    SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
  finally
    CloseHandle(MainHandle);
  end;
end;

Esto lo encontré en la web tiempo atrás y me ha venido de maravillas. Ahora mismo no recuerdo de dónde lo saqué pero lo he probado y me funciona bien, incluso mirando en el Administrador de tareas la memoria que consume mi aplicación, cuando se ejecuta el código anterior disminuye esta mucho más que después de hacer el Free.

La explicación que daban en la web era que cuando se minimiza una aplicación Windows libera un "pocotón de cosas" y este procedimiento viene a simular algo parecido. Disculpen mi falta de memoria.

Byeeee