Fuga de mem�ria. Onde?

Question

Ol� pessoal,estou usando IBX para acessar uma base de dados Firebird 2.0. Todo o acesso ocorre sem problema �aparentemente�. Por�m ao colocar uma consulta dentro de um timer ocorre um �vazamento� de m...

Carlosib · Answer

Sobe...

Massuda · Answer

Seu c�digo � esse mesmo? Tem um case no meio do c�digo que n�o faz sentindo algum....

Carlosib · Answer

Massuda o CASE foi erro ao copiar e colar o c�digo de maneira simplificada para postar aqui.

var
  Transacao : TIBTransaction;
  qry       : TIBQuery;
begin
  qry       := TIBQuery.Create(nil);
  Transacao := TIBTransaction.Create(nil);
  try
    qry.Transaction                  := Transacao;
    qry.Database                     := DM.BancoDados;
    DM.BancoDados.DefaultTransaction := Transacao;
    //Query para inser��o de uma pessoa
    with qry do
    begin
     Transacao.StartTransaction;
     try
      Close;
      SQL.Clear;
      SQL.Add(�SELECT * FROM COMPROMISSOS WHERE DATA = :DATA�);
      ParamByName(�DATA�).AsDate := Date;
      Open;
      txtComp.Clear;
      while not eof do
      begin
        txtComp.Items.Add(FieldByName(�COMP�).AsString);
        next;
     end;
      Close;
      Transacao.CommitRetaining;
     except
      showMessage(�Erro!!�);
      Transacao.RollbackRetaining;
     end;
    end;
  finally
    qry.Free;
    Transacao.Free;
  end;

Carlosib · Answer

Sobre...

Carlosib · Answer

sobe  :oops:...

Paulo Samurai · Answer

Uma ideia, desabilite o timer no inicio do metodo para reativar no finally. Problemas obscuros podem acontecer sempre que o timer dispara e o evento anterior ainda n�o terminou ;)[]�s...

F�rum Fuga de mem�ria. Onde? #346153