Fórum Função Limpar Edits #441254

29/04/2013

0

Delphi

Alguem tem uma função para limpar edits de um form.
Joabe Silva

Joabe Silva

Responder

Post mais votado

29/04/2013

amigo, basta adaptar a solução para os dbEdits

procedure TForm1.LimparEdit;
var
  i: Integer;
begin
  for i := 0 to Form1.ComponentCount -1 do
  begin
    if Form1.Components[i] is TDBEdit then
      TDBEdit(Form1.Components[i]).Clear;
  end;
end;

Diego Garcia

Diego Garcia
Responder

Gostei + 1

Mais Posts

29/04/2013

Rafael Brendolan

procedure TForm1.LimparEdit;
var
i: Integer;
begin
for i := 0 to Form1.ComponentCount -1 do
begin
if Form1.Components[i] is TEdit then
TEdit(Form1.Components[i]).Clear;
end;
end;

Essa procedure vai percorrer todos os Edit do Formulário e dar um Clear nos Edit.

Att: Rafael Brendolan
Responder

Gostei + 0

29/04/2013

Joabe Silva

Não consegui fazer funcionar , estou usando aqueles campos que são gerados automaticamente , quando clica e arrasta e pra fazer os eventos uso um action do dataset.
Responder

Gostei + 0

29/04/2013

William

Colega não entendi, a função que foi passada acima limpa os TEdits que existem no formulário, caso não existam não tem o que limpar!!

Ou você está usando TDBEdit?
Responder

Gostei + 0

29/04/2013

Joabe Silva

É esse TBEdit , mesmo que estou sando . alguma solução ?
Responder

Gostei + 0

29/04/2013

Joabe Silva

Problema resolvido.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar