Buscar

DESTRUINDO UMA LISTA DE CAMPOS CRIADOS EM TEMPO DE EXECUÇÃO

Código

While I < frmTeste_padrao.ComponentCount do
      begin
            If (frmTeste_padrao.components[I] is TEdit) AND ((Components[I]).Name = 'vl_parcela'+inttostr(clt))
            then
            begin
                  frmTeste_padrao.Components[I].Free;
                  inc(clt,1);
            end
            else I:= I + 1;
      end;
      I:=0;
      While I < frmTeste_padrao.ComponentCount do
      begin
            If (frmTeste_padrao.components[I] is Tlabel) AND ((Components[I]).Name = 'Parcela'+inttostr(lbt)) then
            begin
            frmTeste_padrao.Components[I].Free;
            inc(lbt,1);
            end
            else I:= I + 1;
      end;

# Autor MC
Onde AND ((Components[I]).Name = 'vl_parcela'+inttostr(clt)) é a condição de criação de nomenclaturas para que sejam somente destuidos os que foram criados assim não aftam outros objetos
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 09/11/10
Por: Marcos Naves Calixto
Visualizada: 3441 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009