Fórum Limpar Edits #258923
18/11/2004
0
Ola, tenho 37 Edits no meu form e nao qro ter o trabalho de toda hr ficar digitando ´Edit1.clear..´ Tem alguma outra maneira de se fazer isso? Algum loop ou coisa parecida??
valeu!
;)
valeu!
;)
Thales
Curtir tópico
+ 0
Responder
Posts
18/11/2004
Reginaldo174
Procedure TForm1.LimpaEdit;
Var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Text := ´´;
end;
end;
Var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Text := ´´;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)