Limpando vários campos de uma só vez em Delphi

Bom dia pessoal, postarei como limpar vários campos de um formulário de uma só vez com um procedure em Delphi.

imagem um formulário com diversos edits, memos, maskedits, images e você tem que limpar todos estes campos quando for gravar, cancelar,excluir ou navegar nos registros mostrados no formulário. Seria trabalhoso limpar campo por campo, mas para isso basta criar um procedure para fazer todo esse trabalho. Vamos lá.

Cria-se o procedure LIMPATELA (ou o nome que vocês desejarem) e depois é só chamá-la no evento que desejar.

Agora o procedure propriamente dito:

procedure TForm1.LIMPATELA;

var

i : integer;

begin

for i:=0 to Form1.ComponentCount-1 do

begin

if Form1.Components[i] is TEdit then

(Form1.Components[i] as TEdit).Clear;

if Form1.Components[i] is TMemo then

(Form1.Components[i] as TMemo).Clean;

if Form1.Components[i] is TMaskEdit then

(Form1.Components[i] as TMaskEdit).Clean;

if Form1.Components[i] is TImages then

(Form1.Components[i] as TImage).Picture:=nil;

end;

end;

Para chamar o procedure, basta colocar o nome do procedure no procedimento que desejar. Ex.:

procedure TForm1.BotaoCancelarClick(Sender : TObject);

begin

LIMPATELA;

end;

Espero ter ajudado.

Até a próxima.

3 respostas para Limpando vários campos de uma só vez em Delphi

  1. Rogerio disse:

    Eu Escrevi a procedure masdeu erro
    [Error] Unitlaudo.pas(292): Method identifier expected
    [Error] Unitlaudo.pas(294): Operator not applicable to this operand type

  2. Provavelmente o erro era pois não existe o método chamado
    “.clean”, e sim “.clear”

  3. Gabriela disse:

    Muito obrigada, precisava disso para limpar mais de 86 edits em um aplicativo, foi de muita ajuda !

Deixe uma resposta

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

%d blogueiros gostam disto: