Ver Mensaje Individual
  #6  
Antiguo 17-03-2010
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Reputación: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Cita:
Empezado por mcs Ver Mensaje
[..]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:
Código:
procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
       Action := caFree;
//  FrmVentasClienteExpress := Nil; 
//  FrmVentasClienteExpress.Free;  
end;
Código:
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;
Y este caso, si qry1 es un query que has creado tú, puedes eliminarlo con:
Código:
FreeAndNil(qry1)
Y fíjate en lo que te ha dicho Ñuño, primero free, luego pones a nil
Responder Con Cita