Valeu Alexandre! Não sei o que está acontecendo... Tentei de tudo e nada...
Obrigado mesmo! []'s Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 30/6/09, Alexandre Garcia Trindade <agtrind...@gmail.com> escreveu: > De: Alexandre Garcia Trindade <agtrind...@gmail.com> > Assunto: Re: RES: [delphi-br] Executar uma função... > Para: delphi-br@yahoogrupos.com.br > Data: Terça-feira, 30 de Junho de 2009, 9:43 > Ricardo, > > aqui abriu normal. De qualquer forma, está aí um > conteúdo. > > um grande abraço > > Alexandre Trindade > > > ...call a routine by its name? Autor: Fernando > Silva [ Print > tip<http://www.swissdelphicenter.ch/en/printcode.php?id=799>] > > *Tip Rating (2):* > > > *type > *TForm1 = *class*(TForm) > Button1: TButton; > *procedure *Button1Click(Sender: TObject); > *// Your routines (that you'll run by name) > must be here > **procedure *Hello_World(Sender: TObject); > *private > procedure *ExecuteRoutine(Instance: TObject; > Name: *string*); > *end*; > > *var > *Form1: TForm1; > > *type > *TExecute = *procedure of object*; > > *procedure *TForm1.ExecuteRoutine(Instance: TObject; Name: > *string*); > *var > *Routine: TMethod; > Execute: TExecute; > *begin > *Routine.Data := Pointer(Instance); > *// Returns the address of a published method. > *Routine.Code := Instance.MethodAddress(Name); > *if *Routine.Code = *nil then *Exit; > Execute := TExecute(Routine); > Execute; > *end*; > > *procedure *TForm1.Button1Click(Sender: TObject); > *begin > *ExecuteRoutine(Form1, 'Hello_World'); > *end*; > > *procedure *TForm1.Hello_World(Sender: TObject); > *begin > *ShowMessage('This is a test'); > *end*; > > > > > > > > > 2009/6/30 Ricardo César Cardoso <ricardo_engs...@yahoo.com.br> > > > > > > > Caramba... tô desde ontem tentando entrar no link > proposto pelo Rubem, mas > > parece que o SwissDelphiCenter não quer colaborar > comigo... Tentei em casa, > > no trabalho, num parceiro e não houve o que fizesse o > site ser aberto. Todas > > as requisições esgotam o limite de tempo. > > > > Seria problema com o site/provedor? > > > > > > 1) Evite escrever suas mensagens usando somente LETRAS > MAIÚSCULAS. > > > > 2) Revise o texto de sua mensagem. Uma mensagem bem > escrita é melhor > > compreendida. > > > > 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo > irrelevante! > > > > --- Em ter, 30/6/09, Evandro Siqueira > > <vans...@gmail.com<vansiqq%40gmail.com>> > > escreveu: > > > > De: Evandro Siqueira <vans...@gmail.com > <vansiqq%40gmail.com>> > > Assunto: Re: RES: [delphi-br] Executar uma > função... > > Para: delphi-br@yahoogrupos.com.br > <delphi-br%40yahoogrupos.com.br> > > Data: Terça-feira, 30 de Junho de 2009, 7:13 > > > > GRANDE Rubem!!! > > > > Mas uma vez acertou na "mosca". Era exatamente isso > que eu queria. Muito > > > > obrigado mesmo. > > > > -- > > > > []’s. > > > > Evandro Siqueira > > > > Programador de Sistemas > > > > L’essentiel Lingerie > > > > (79) 3254-5511 Ramal 218 > > > > skype: evandro.lessentiel > > > > Rubem Rocha escreveu: > > > > > > > > > > > > > > > Ricardo, eu acho que o que o colega Leandro quer > está neste link: > > > > > > > > > > http://www.swissdel phicenter. ch/en/showcode. > php?id=799 > > > > > <http://www.swissdel phicenter. ch/en/showcode. > php?id=799> > > > > > > > > > > Para os que insistirem em dizer que isso é macro > substituição > > > > > (querendo, de qualquer maneira, usar um conceito > que não é inerente à > > > > > especificação da linguagem Object Pascal), já > digo de antemão que não é! > > > > > > > > > > A utilização de recursos da RTL para obter > informações de endereços de > > > > > métodos pelo nome não quer dizer exatamente que > o texto do nome será > > > > > interpretado de forma a retornar um valor > referente a um ponteiro de > > > > > um método, pois o código ilustrado não faz > interpretação alguma. > > > > > > > > > > Sds. > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > __________________________________________________________ > > Veja quais são os assuntos do momento no Yahoo! > +Buscados > > http://br.maisbuscados.yahoo.com > > > > [As partes desta mensagem que não continham texto > foram removidas] > > > > > > > > > [As partes desta mensagem que não continham texto foram > removidas] > > > > ------------------------------------ > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER > ESTA MENSAGEM >>>>> > > Links do Yahoo! Grupos > > > > ____________________________________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
