Como limpar todos o Edits de um formulário?
Exemplo bem simples, para ajudar a quem está começando.
1
2
3
4
5
6
7
8
9
10
| { Neste exemplo um botão limpa todos os edits de um formulário,
não importando o nº de Edits que o formulário comtém. }
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
begin
for I := 0 to Self.ComponentCount - 1 do
if (Self.Components[i] is TEdit) then
(Self.Components[i] as TEdit).Clear;
end; |
{ Neste exemplo um botão limpa todos os edits de um formulário,
não importando o nº de Edits que o formulário comtém. }
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
begin
for I := 0 to Self.ComponentCount - 1 do
if (Self.Components[i] is TEdit) then
(Self.Components[i] as TEdit).Clear;
end;
Post Views: 6.155
-
InfusTec
-
- 0 comentários
- 21 de março de 2015
