Liberar da mem�ria todas as estancias criadas de uma classe

Question

Pessoal...Tem como eu liberar da mem�ria todas as estancias criadas de uma determinada classe?Vamos dizer que essa classe esta criando outras estancias dela mesma...Em um determinado momento, todo e q...

Rodc · Answer

Se voc� tem o ponteiro para estas classes tem como sim... mas se voc� est� fazendo esta pergunta � porque possivelmente voc� n�o tem os ponteiros para estas classes, correto? Sugiro voc� usar um TList que guarde os ponteiros para estas classes, e depois percorra o TList destruindo todas as classes referenciadas nela.

Amigo, poderia me dar um simples exemplo por favor?

Edsant · Answer

Amigo, eu geralmente utilizo [b:ae71124014]interfaces[/b:ae71124014]. ai n�o preciso me preocupar com destrui��o de classes....At� mais......

[vaza] · Answer

[quote:d046b875c5=�rodc�]Se voc� tem o ponteiro para estas classes tem como sim... mas se voc� est� fazendo esta pergunta � porque possivelmente voc� n�o tem os ponteiros para estas classes, correto?Sugiro voc� usar um TList que guarde os ponteiros para estas classes, e depois percorra o TList destruindo todas as classes referenciadas nela.[/quote:d046b875c5]Amigo, poderia me dar um simples exemplo por favor?...

Rodc · Answer

Faz um tempo que n�o programo mais em Delphi, s� em C++Builder, mas vou tentar fazer um exemplo simples, dentro do evento de um bot�o, por exemplo.

var
    lista: TList;
    botao: TButton;
    x: integer;
begin
lista := TList.Create();

    // cria primeiro bot�o
    botao = TButton.Create(self);
    // adiciona primeiro na lista
    lista.Add(botao);
    //cria segundo bot�o
    botao = TButton.Create(self);
    // adiciona segundo na lista
    lista.Add(botao);
    //cria terceiro bot�o
    botao = TButton.Create(self);
    // adiciona terceiro na lista
    lista.Add(botao);

    /* neste momento a lista cont�m o ponteiro de tr�s
       classes do tipo TButton instanciadas em mem�ria */

    // Percorre a lista de bot�es destruindo as classes
    for x:=lista.Count downto 0 do
    begin
    TButton(lista[x]).Free;
        lista.Delete(x);
    end;
end;

N�o sei nem se vai compilar este c�digo, pois n�o testei... Mas a id�ia � demostrar que voc� criou tr�s objetos em mem�ria e depois destrui eles, apenas com a refer�ncia para a mem�ria deles.

[vaza] · Answer

Vlw cara...entendi :)obrigad�o.Tentarei aqui....

[vaza] · Answer

Tem como eu pegar o n�mero de instancias de uma classe sem ser por TList como no exemplo?...

Rodc · Answer

At� onde eu saiba n�o tem como, pois se voc� cria um objeto em mem�ria e depois n�o guarda o endere�o onde o objeto est� alocado em mem�ria, como � que voc� vai acessar ele? Vai varrer toda a mem�ria at� encontrar uma estrutura v�lida?
A n�o ser que o RTTI do Delphi guarde alguma informa��o sobre os objetos criados...

Osocram · Answer

Amigo acho q a solu��o do rodc � a melhor.
usando TList, � o que eu faria tbm.
Apesar que depende o vc realmente precisa podemos dar outras solu��es.

[quote:1446a06dc6=�[VAZA]�]Tem como eu pegar o n�mero de instancias de uma classe sem ser por TList como no exemplo?[/quote:1446a06dc6]

F�rum Liberar da mem�ria todas as estancias criadas de uma classe #371718