A estes “métodos de destruição” ou “técnicas de destruição” que mantém a memória do computador “limpa” de objetos ou variáveis com referências perdidas, dá-se o nome de “Garbage Collection”.

     Quando for efetuado um instanciamento de um objeto TQuery dinamicamente (via código), devemos sempre utilizar o FreeAndNil para destruí-lo, mesmo sendo um objeto de visibilidade privada. Isto é necessário, porque embora o Garbage Colletion do delphi elimine o objeto instanciado da memória do computador o Oracle não elimina o cursor enquanto a conexão que o criou estivar ativa. Abaixo um Exemplo da maneira correta de se trabalhar:

procedure X; 
  Var 
    qryAux : TQuery; 
begin 
  qryAux := TQuery.Create( Nil ); 
  Try 
    //comandos a serem executados com qryAux 
  Finally 
    If ( qryAux.Active ) Then qryAux.close; 
    FreeAndNil( qryAux ); 
  End; 
End;

     Caso o sistema em Delphi não liberar o objeto Tquery explicitamente, o Oracle vai acumulando os cursores (“Querys”) enquanto o sistema estiver conectado, o que pode ocasionar o erro “ORA-01000: maximum open cursors exceeded”, que indica que a quantidade de cursores suportados pelo Oracle foi excedida. Quando o sistema é finalizado a conexão com o Oracle é fechada, consequentemente todos os cursores da conexão também são finalizados, desta forma se este erro ocorrer, o operador do sistema deverá sair e entrar novamente no sistema para voltar a utilizá-lo, causando um grande transtorno para o operador.

     É possível aumentar a quantidade de cursores que podem ficar abertos no Oracle aumentando o valor do parâmetro “open_cursors” (é necessário reiniciar o banco de dados), mas isto é uma solução paliativa, pois conforme a aplicação vai sendo utilizada os cursores continuam sendo acumulados até que em um dado momento causarão novamente um estouro do limite de cursores configurados.

Flavio Barbosa
fbarbosa@hcrp.fmrp.usp.br