Carlos;
E Se ao inves do TColections voce usase um Tlist com ponteiros para o
procedimento que deseja executar...
Tipo, voce Cria um TList com o inicio da aplicacao. e ele fica
disponivel o tempo todo
para voce adicionar itens ao mesmo (Tipo um TStrinList) estes itens
podem ser ponteiros
para outros procedimentos que voce ja tem ou vai ter e vao ser
executados junto aos eventos
do AdoTable..
Estes procedimentos podem ser adicionados ao TList em tempo de execução
propiciando uma
certa 'dinamica'.
No momento que o Evento do AdoTable ocorrer, voce programa para dar um
loop nos itens
do Tlist correspondente executando os procedimentos existente no mesmo,
um a um, nao
importanto em qual unit ou quantidade de procedimentos, e eles vao
funcionar de forma
sequencial, 1, 2, 3, 4...
Se quiser mais informacoes, de como fazer isto e so dar um novo post
pedindo-as
posso criar um pequeno exemplo.
Atenc.
Elazar
**********************
Elazar, exatamente é isto que quero!
No inicio pensava em encontrar uma forma mais prática, mas percebi que
somente um metodo pode ser informado, portando passei a pensar na
solução
através do uso do Collections!
O problema agora que ao construir o procedimento:
TDados.ADOTable1AfterPost(DataSet:
TDataSet);
Não saberei quais os procedimentos filhos deverão ser acionados! Achei
na
internet um Componente para trabalhar com Collections de forma similar
ao
Java! vou tentar com ele! se obtiver sucesso informo aqui na lista!
Agora estou com a dificuldade, como adicionar estes procedimentos dentro
da
collection!
Obrigado a todos!
Em 02/02/06, Elazar <[EMAIL PROTECTED]> escreveu:
>
> Carlos;
>
> bom dia;
>
> Pelo que entendi, voce gostaria de chamar diversos procedimentos no
> momento que estes eventos ocorressem, é isto? (não sei se entendi
> direito...)
>
> Caso.
>
> se for, o Evento AfterPost, por exemplo, passa uma referencia ao
objeto
> a qual o evento esta ocorrendo.
>
> ....
> procedure TDados.ADOTable1AfterPost(DataSet: TDataSet);
> begin
>
> end;
> ....
>
>
> o DataSet do Tipo TDataSet; pode ser utilizado para chamar outros
> procedimentos.
> ....
>
> procedure TDados.Procedimetno(DataSet : TDataSet);
> begin
> ShowMessage('Numero de Registros: ' +
IntToStr(DataSet.RecordCount));
> end;
>
> procedure TDados.ADOTable1AfterPost(DataSet: TDataSet);
> begin
> Procedimento(DataSet);
> OutroProcedimento2(DataSet);
> OutroProcedimento2(DataSet);
> ...
> end;
> ....
>
>
> Espero ter ajudado...
>
>
> Atenc.
> Elazar
>
>
> *******************************************
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> Em nome de Carlos Delfino Carvalho Pinheiro
> Enviada em: quinta-feira, 2 de fevereiro de 2006 10:09
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Listeners para Eventos como AfterPost e
BeforePost!
>
>
> Bons Dias!
>
> Como já dito sou programador java, longe de querer estar comparando as
> duas linguagens, mas também não posso abandonar minha experiência em
> tal Linguagem! Estou tendo dificuldades para me adaptar em alguns
> detalhes, conto com a colaboração de todos os colegas!
>
> Tenho a necessidade de inserir diversos Procedimentos para que possam
> ouvir (Listener) os eventos AfterPost e BeforePost de uma ADOTable!
>
> Em Java, eu usaria um Padrão de Projeto Chamado Publish-Subscribe(A
> GoF pattern (section 23.9 of Larman); Also known as publish-subscribe,
> delegation-event model, event-listener model), que já implementado me
> oferecia um Metodo chamado AddPropertyListener(String,Objeto), mas
> percebi que em Delphi somente um Procedimento (ou melhor ponteiro para
> procedimento)por vez pode ser adicionado como Ouvinte destes eventos!
>
> Qual seria a melhor forma de se implementar multiplos Ouvintes? Criar
> uma coleção e criar um unico metodo em um DataModule onde seria
> adicionado os ouvintes segundários, e este metodo adicionado ao
> Evento?
>
> Existiria forma mais prática?
>
> Obrigado!
>
> --
> Carlos Delfino
> Consultoria e Pesquisa
> Desenvolvimento de Softwares.
> Sun Certified Associate for Java Platform
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
> PUBLICIDADE
>
>
>
>
>
> 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 Termos do Serviço
> do Yahoo!.
>
>
>
>
>
>
> _______________________________________________________
> Yahoo! doce lar. Faça do Yahoo! sua homepage.
> http://br.yahoo.com/homepageset.html
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
> *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE
>
<http://br.ard.yahoo.com/SIG=12fsjojkn/M=393477.7870451.8719931.2369893/
D=brclubs/S=2137111264:HM/Y=BR/EXP=1138902679/A=3254979/R=0/id=noscript/
SIG=12k5j3olb/*http://www.momentumquiz.com.br/index.php?md5ref=372BBEE98
E9544bd8B2F9E87847EEEBE_3>
> ------------------------------
> *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]<[EMAIL PROTECTED]
os.com.br?subject=Unsubscribe>
>
> - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
--
Carlos Delfino
Consultoria e Pesquisa
Desenvolvimento de Softwares.
Sun Certified Associate for Java Platform
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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 Termos do Serviço
do Yahoo!.
____________________________________________________
--
<<<<< 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
