For i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is Tedit then
(Form.Components[i] as Tedit).Clear
Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]
-----Mensagem original-----
De: Gercil Junio [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 14 de outubro de 2004 13:30
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Limpar todos os edits
Daniel,
Nenhuma das duas formas deu certo!
Obrigado!
---------------------------
ComponentCount e Components são propriedades da classe TForm. Note que a
procedure que você escreveu (LimparCampos) não é um membro da classe que
corresponde ao seu formulário, pois isto os identificadores não estão sendo
reconhecidos.
Para resolver isto você tem duas opções (ou talvez até mais!):
1. Declarar a procedure LimparCampos como um membro da classe do seu
formulário. Declare a procedure na seção private (ou public, conforme a
necessidade de visibilidade) e na implementação da procedure, preceda seu
nome com o nome da classe, como mostra o exemplo:
{...}
private
procedure LimparCampos;
{...}
implementation
procedure TNomeDoSeuForm.LimparCampos;
begin
{...}
end;
2. Ou então você passa o formulário como parâmetro para a procedure, como
mostra o exemplo:
procedure LimparCampos(Formulario: TForm); var
i : Integer;
begin
for i := 0 to Formulario.ComponentCount -1 do
if Formulario.Components[i] is TEdit then
TEdit(Formulario.Components[i]).Text := ''; end;
Esta forma é mais genérica, permitindo seu uso com qualquer formulário sem
multas complicações. Bastará chamá-la assim:
LimparCampos(SeuFormulario);
Atenciosamente.
Daniel P. Guimarães
Tecnobyte informática
www.tecnobyte.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
