Esta rotina poderia ser melhorada da seguinte maneira:
procedure ClearEdits(AOwner: TWinControl = nil);
var
i, cnt: integer;
begin
if not Assigned(AOwner) then
AOwner := Screen.ActiveForm;
cnt := AOwner.ComponentCount;
for i := 0 to cnt – 1 do
if AOwner.Components[i] is TCustomEdit then
(AOwner.Components[i] as TCustomEdit).Clear();
end;
Se não passar parâmetro para ela, limpa todos os TEdits, TMaskEdits, TMemos,
etc. que está no formulário atual. Caso contrário, limpa todos os TEdits,
TMaskEdits, TMemos, etc. do container passado.
// para limpar edits do form atual
ClearEdits();
// para limpar edits de um container
ClearEdits(Panel1);
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Jose Ferreira
Enviada em: quinta-feira, 17 de dezembro de 2009 16:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Limpar todos os edits de uma só vez!
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...
________________________________
De: Jefferson Eduardo <je.del...@yahoo.com.br <mailto:je.delphi%40yahoo.com.br>
>
Para: grupo <delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br> >
Enviadas: Quinta-feira, 17 de Dezembro de 2009 8:49:47
Assunto: [delphi-br] Limpar todos os edits de uma só vez!
Pessoal, bom dia!
Tenho um programa no delphi e quando clico no botão salvar, ele limpa os dados
no edit.text e insere no banco, porém, para limpar estou fazendo desse jeito no
código:
EdtCep.Text: =' ';
EdtBairro.Text: =' ';
EdtCidade.Text: =' ';
EdtTelfixo.Text: =' ';
Existe alguma outra forma de limpar tudo isto de uma só vez, para diminuir o
meu código?
grato,
Jefferson
[As partes desta mensagem que não continham texto foram removidas]
