Como a funcao vai saber quem é o parent dos edits? Você deveria
passa-lo por parametro.
--- Em delphi-br@yahoogrupos.com.br, "Praxis" <[EMAIL PROTECTED]> escreveu
>
> Tenho uma rotina pra limpar todas as edits de um form e ela funciona.
> Contudo, resolvi fazer uma unit de apoio, sem form, onde coloquei
vários
> procedimentos importantes. Umas delas, a LimparCampos não está
funcionando
> e é a única. Alguém saberia explicar?????
>
>
> Segue parte do código abaixo
>
>
> unit uApoio; //não está acoplada a um form
>
> interface
>
> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
> Dialogs, Mask, StdCtrls, Buttons, ExtCtrls, DBCtrls;
>
>
>
> //Exporta método pra outra unit
> procedure LimparCampos;
>
>
>
> implementation
>
> uses ModuloDados, DateUtils, DB, IBQuery;
>
>
>
> procedure LimparCampos;
> var i : integer;
> begin
> for i := 0 to ComponentCount -1 do
> begin
> if (Components[i] is TEdit) Then
> (Components[i] as TEdit).Clear;
>
> if (Components[i] is TMaskEdit) then
> (Components[i] as TMaskEdit).Clear;
> end;
>
> end;
>
>
>
> end.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
--
<<<<< 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]
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
