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
<*> 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
