Aqui abre normalmente, deve ser problema aí no seu computador. O
conteúdo é esse:
call a routine by its name?
Autor: Fernando Silva
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;
=============================================
Ricardo César Cardoso escreveu:
>
>
> 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
> <mailto:vansiqq%40gmail.com>> escreveu:
>
> De: Evandro Siqueira <vans...@gmail.com <mailto:vansiqq%40gmail.com>>
> Assunto: Re: RES: [delphi-br] Executar uma função...
> Para: delphi-br@yahoogrupos.com.br <mailto: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.
>
> >
>
> >
>
> .
>
>
------------------------------------
--
<<<<< 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
