Limpar os Edits, Maskedits e Memos de um form de uma só vez

Aviso importante!

Eu sei que você não quer ver propagandas, porém o conteúdo gratuito só está aqui graças a publicidade. Considere desativar o AdBlock para esse site.

Para fazer uma simples rotina de limpar o form, use a seguinte procedure:

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;

Isso fará com que os Edits, Memos, MaskEdits, etc sejam limpados

Sobre o autor

Ricardo Bernardi

Sou técnico em hardware e desenvolvedor web, e sobre estes dois assuntos comecei a compartilhar aulas e artigos, tornando-me blogueiro em 2008. Em 2010 esse hobby virou profissão, e desde então tenho buscado melhorar e profissionalizar cada vez mais os projetos que mantenho na web.

Comentários

Atualmente temos 2 comentários para este post. Participe você também, clique aqui e comente sobre o assunto.

  • jseg comentou em

    Olá Ricardo. Boa tarde, suas aulas são sempre muito boas, mas agora me surgiu uma curiosidade, Você irá efetuar aulas sobre DELPHI? Caso sim estarei interessado em dar uma estudada no assunto. Obrigado.

    Responder

Deixe seu comentário