Função Limpar Edits
Alguem tem uma função para limpar edits de um form.
Joabe Silva
Curtidas 0
Melhor post
Diego Garcia
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;
GOSTEI 1
Mais Respostas
Rafael Brendolan
29/04/2013
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
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
GOSTEI 0
Joabe Silva
29/04/2013
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.
GOSTEI 0
William
29/04/2013
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?
Ou você está usando TDBEdit?
GOSTEI 0
Joabe Silva
29/04/2013
É esse TBEdit , mesmo que estou sando . alguma solução ?
GOSTEI 0
Joabe Silva
29/04/2013
Problema resolvido.
GOSTEI 0