2

Já tentei de todas as formas destruir TDictionary mas sempre que tenho o ReportMemoryLeaksOnShutdown ativo ele deixa sempre algo sem ser destruído. Já tentei correr a lista e destruir item a item.

Código:

with foDict.GetEnumerator do
  while MoveNext do
    Current.Value.Free;

foDict.Free;

Como tentei também destruir somente o foDict.Free;

Ambas há vazamento de memória. Alguém ai tem alguma sugestão?

7
  • é só este o seu código onde utiliza o foDict? @ElanDuarteFraga
    – Tmc
    3/11/2016 às 14:06
  • problema é só para dar um free nele. foDict: TDictionary<integer, TCliente>; Funciona perfeitamente mas ao liberar ele da memória sempre fica algum "lixo". 3/11/2016 às 14:13
  • tentou minha resposta? @ElanDuarteFraga
    – Tmc
    3/11/2016 às 14:52
  • Não vi como testar sua resposta mas criei o projeto para explicar melhor dl.dropboxusercontent.com/u/77323830/TDictionary.rar 3/11/2016 às 18:45
  • Quando você cria um Dicionário, a melhor forma de garantir que ele vai ser liberado, é utilizar o parâmetro doOwnsValue no create: myDictionary<TKey,TValue>.Create([doOwnsValues]) 3/11/2016 às 19:10

3 Respostas 3

2

Usando o seu exemplo, o código teria as seguintes alterações:

Nova classe:

TMyCustomDictionary = TObjectDictionary<integer, TCliente>;

Nova utilização do objeto foDict:

foDict: TMyCustomDictionary;

Novo create do objeto foDict

foDict := TMyCustomDictionary.Create([doOwnsValues]);

Feito isso, o botão FreeList, passa a não ter mais utidade

0

Testa da seguinte forma::

destructor TMemCorrectedDictionary.Destroy;
begin
  inherited;
  Values.Free;
  Keys.Free;
end;

Mais informações aqui: Memory Leak in TDictionary - Problems with Workaround?

-2

Yes, with TObjectDictionary you can use .Create([doOwnsValues]) that free all objects automatically. [doOwnsValues] is not possible to TDictionary, you need to do manually.

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .