Fórum TEdit em Branco #167903
04/07/2003
0
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
Curtir tópico
+ 0
Responder
Posts
04/07/2003
Aroldo Zanela
http://200.196.51.150/forum/viewtopic.php?t=13797&highlight=componentcount+tedit
Responder
Gostei + 0
05/07/2003
Ruysalles
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)