Cita:
Empezado por mcs
[..]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:
Y fíjate en lo que te ha dicho Ñuño, primero free, luego pones a nil