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 > > Lessentiel 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 >>>>> <*> 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html