Para exemplo, digamos que possuo uma classe TConfiguracao
.
Aqui os atributos construtores e destrutores
e em alguns formularios eu crio varias variaveis do tipo TConfiguracao
conf1 :TConfiguracao;
conf2 :TConfiguracao;
...
conf1 := TConfiguracao.Create();
conf2 := TConfiguracao.Create();
...
No fechar deste formulário eu faço:
FreeAndNil(conf1);
FreeAndNil(conf2);
Esta funcionando 100%. O que eu gostaria de saber é, existe alguma maneira de percorrer todos os objetos dessa classe TConfiguracao
e aplicar um FreeAndNil
sem saber ao certo quantas variáveis desse tipo eu criei? Sei que existe uma maneira de percorrer os componentes de um form dessa maneira
for i := 0 to Form.ComponentCount - 1 do
begin
if Form.components[i].classtype is TEdit then
begin
//
end;
end;
Mas objetos de outras classes não consigo. Existe alguma maneira de fazer isso??