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
