TEdit em Branco
Pessoal,
Gostaria de saber se é possível deixar todos os TEdits de uma tela em branco sem precisar fazer (Edit1.text:= ´´) de um por um.
Obs.: Nessa tela eu tenho TComboBox também...
Obrigado !!!
Marcelo Ribeiro
Gostaria de saber se é possível deixar todos os TEdits de uma tela em branco sem precisar fazer (Edit1.text:= ´´) de um por um.
Obs.: Nessa tela eu tenho TComboBox também...
Obrigado !!!
Marcelo Ribeiro
Marceloribeiro
Curtidas 0
Respostas
Aroldo Zanela
04/07/2003
http://200.196.51.150/forum/viewtopic.php?t=13797&highlight=componentcount+tedit
GOSTEI 0
Ruysalles
04/07/2003
Procedure 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;
[b:803bd960b4]Limpar todos os Edits, Memos, MaskEdits, etc...[/b:803bd960b4]
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;
Valeu
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Text := ´´;
end;
end;
[b:803bd960b4]Limpar todos os Edits, Memos, MaskEdits, etc...[/b:803bd960b4]
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;
Valeu
GOSTEI 0