Dicas Delphi – Limpando Componentes Automaticamente

Salve, salve amigos,

Uma função que faz a limpeza automática dos componentes da tela, como Edit’s, Memo’s, etc.
Procedure para limpar somente os Edits:

Por wandinhodelphiweb – http://www.activedelphi.com.br

procedure LimpaEdit; 
var
i : Integer;
begin
for
i := 0 to ComponentCount -1 do
if
Components[i] is TEdit then
TEdit(Components[i]).Text := '';
end;

E agora uma mais genérica, que utiliza a classe TCustomEdit, limpando automaticamente os Memo’s e todos os outros componentes que herdam desta classe:

procedure LimpaEdit (Form: TForm); 
var
i : Integer;
begin
for
i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
 
 
Take care 


		
Anúncios

2 respostas em “Dicas Delphi – Limpando Componentes Automaticamente

  1. Muito bom este exemplo.
    Eu preciso de uma dica para filtrar os dados e popular um DBGRID.
    Eu não consigo passar parâmetros no meu select. No IBExpert, funciona, mas quando chego no Delphi, não consigo.
    Uso Delphi7 e Firebird 2.1
    Desde já, agradeço.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s