Como Destruir O Que Foi Criado (Resolvido)

[Guest Metodo Create]

Ola,

Vi em um livro como se faz a criação dinamica de caixas de textos "Edits", so que eu gostaria de destruir esses Edits criados para recria-los em uma quantidade diferente. Como eu faço isso? Tentei usasr o "DestroyComponents" mas ele me destroi tudo, ate a meu botão e uma caixa de texto que é onde eu entro com o valor para criação dos Edits.

//****************************************************************

v:=StrToInt(NEntrada.Text);

for i:=1 to v do

begin

i:=i+1;

entrada := TEdit.Create(self);

entrada.Parent := self;

entrada.MaxLength := 2;

entrada.Width := 19;

entrada.Left := lateral;

entrada.Top := topo;

str(i, retorno);

entrada.Name := 'Item'+ retorno;

entrada.Text := IntToStr(0);

lateral := lateral + 20;

end;

//****************************************************************

[s3c]

Olá colega !

Quando você faz:

entrada := TEdit.Create(self); você diz que o dono do TEdit é a classe base da função ou método que está este comando. Com isto ela(Self) é a responsável pela destruição do TEdit.

Aconselho você fazer:

entrada := TEdit.Create(nil);

Assim ninguém vai liberá-lo automaticamente; e para liberar: entrada.Free;

[Guest Guest]

Valeu s3c, quebrou um galhão, tai uma coisa que o livro não esplicava nada, pelo menos eu não achei.

Valeu mesmo.