Fórum Limpar texto de vários EDITs #194246
11/11/2003
0
Tenho um form com muitos EDITs e gostaria de saber se é possível criar uma rotina que limpe o conteúdo texto de todos eles de forma que não precise especifiar um a um e ir limpando o texto./
Valeu galera e espero que me ajudem.
Valeu galera e espero que me ajudem.
Drogao
Curtir tópico
+ 0
Responder
Posts
11/11/2003
M@rcelo
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;
OU
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;
// assim limpara todos os Edits, Memos, MaskEdits, etc...
//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;
OU
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;
// assim limpara todos os Edits, Memos, MaskEdits, etc...
//Valeu!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)