Res: [delphi-br] Executar uma função...
Se for Delphi 2009, pesquise sobre métodos anônimos. Luciano Calenzani Simões 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]
Re: RES: [delphi-br] Executar uma função...
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.swissdelphicenter.ch/en/showcode.php?id=799 http://www.swissdelphicenter.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.
Re: RES: [delphi-br] Executar uma função...
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 escreveu: De: Evandro Siqueira vans...@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, 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]
Re: [delphi-br] Executar uma função...
nao era eu quem queria nao rubem.. mas q achei o codigo muito bom achei rsrs muito interessante.. 2009/6/29 Rubem Rocha rubem.ro...@dtmanaus.com.br Ricardo, eu acho que o que o colega Leandro quer está neste link: http://www.swissdelphicenter.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. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Ricardo César Cardoso Enviada em: segunda-feira, 29 de junho de 2009 15:26 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Executar uma função... Dúvida dentro da dúvida: Por acaso isso não seria o trabalho de um parser? Atte, 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 seg, 29/6/09, Leandro mutu...@yahoo.com.brmutukao%40yahoo.com.brmailto: mutukao%40yahoo.com.br mutukao%2540yahoo.com.br escreveu: De: Leandro mutu...@yahoo.com.br mutukao%40yahoo.com.br mailto: mutukao%40yahoo.com.br mutukao%2540yahoo.com.br Assunto: Re: [delphi-br] Executar uma função... Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Data: Segunda-feira, 29 de Junho de 2009, 10:11 Bom isso nao sei se eh possivel pois nunca tentei.. mas se vc salvar o nome de um objeto vc pode executa-lo pelo findcomponents como um colega ja citou... agora para contornar isso vc pode usar um case Case QueryFuncao.AsInteger of 0: Funcao1; 1: Funcao2; 2: Procedure1; ...: End; 2009/6/29 Evandro Siqueira vans...@gmail.com vansiqq%40gmail.commailto: vansiqq%40gmail.com vansiqq%2540gmail.com Acho que não expliquei direito... a procedure ou função é do delphi e não do banco. Apenas o seu nome está armazenado em uma tabela de procedures no banco de dados. Mais ou menos assim: Vou na tabela, de acordo com o usuário eu pego o nome dessa rotina e executo no delphi. Todas estas rotinas cujos nomes estão no banco, estarão declaradas no uses do delphi. humberto sales de oliveira escreveu: para firebird: IBQuery1.close; IBQuery1.Sql.Text := 'SELECT RDB$PROCEDURE_NAME FROM RDB$PROCEDURES'; IBQuery1.OPEN; L.Clear; WHILE NOT IBQUERY1.Eof DO BEGIN Listbox1.items.Add(IBQUERY1.Fields[0].ASSTRING); IBQUERY1.Next; END; Evandro Siqueira escreveu: Bom dia pessoal, Estou com a necessidade de implementar uma rotina que pegue o nome de uma function ou procedure que está armazenada no banco de dados e execute-a. Isso é possível? Se sim, alguém sabe como eu posso fazer isso? -- []s. Evandro Siqueira Programador de Sistemas Lessentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] -- Leandro, MuTukA [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
Re: RES: [delphi-br] Executar uma função...
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
tiphttp://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.comvansiqq%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
Re: RES: [delphi-br] Executar uma função...
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
tiphttp://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.comvansiqq%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
Re: RES: [delphi-br] Executar uma função. ..
Aqui abre normalmente, deve ser problema aí no seu computador. 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
Re: RES: [delphi-br] Executar uma função. ..
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
[delphi-br] Executar uma função...
Bom dia pessoal, Estou com a necessidade de implementar uma rotina que pegue o nome de uma function ou procedure que está armazenada no banco de dados e execute-a. Isso é possível? Se sim, alguém sabe como eu posso fazer isso? -- []’s a todos. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- 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
Re: [delphi-br] Executar uma função...
para firebird: IBQuery1.close; IBQuery1.Sql.Text := 'SELECT RDB$PROCEDURE_NAME FROM RDB$PROCEDURES'; IBQuery1.OPEN; L.Clear; WHILE NOT IBQUERY1.Eof DO BEGIN Listbox1.items.Add(IBQUERY1.Fields[0].ASSTRING); IBQUERY1.Next; END; Evandro Siqueira escreveu: Bom dia pessoal, Estou com a necessidade de implementar uma rotina que pegue o nome de uma function ou procedure que está armazenada no banco de dados e execute-a. Isso é possível? Se sim, alguém sabe como eu posso fazer isso? -- 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
Re: [delphi-br] Executar uma função...
Acho que não expliquei direito... a procedure ou função é do delphi e não do banco. Apenas o seu nome está armazenado em uma tabela de procedures no banco de dados. Mais ou menos assim: Vou na tabela, de acordo com o usuário eu pego o nome dessa rotina e executo no delphi. Todas estas rotinas cujos nomes estão no banco, estarão declaradas no uses do delphi. humberto sales de oliveira escreveu: para firebird: IBQuery1.close; IBQuery1.Sql.Text := 'SELECT RDB$PROCEDURE_NAME FROM RDB$PROCEDURES'; IBQuery1.OPEN; L.Clear; WHILE NOT IBQUERY1.Eof DO BEGIN Listbox1.items.Add(IBQUERY1.Fields[0].ASSTRING); IBQUERY1.Next; END; Evandro Siqueira escreveu: Bom dia pessoal, Estou com a necessidade de implementar uma rotina que pegue o nome de uma function ou procedure que está armazenada no banco de dados e execute-a. Isso é possível? Se sim, alguém sabe como eu posso fazer isso? -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- 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
Re: [delphi-br] Executar uma função...
Bom isso nao sei se eh possivel pois nunca tentei.. mas se vc salvar o nome de um objeto vc pode executa-lo pelo findcomponents como um colega ja citou... agora para contornar isso vc pode usar um case Case QueryFuncao.AsInteger of 0: Funcao1; 1: Funcao2; 2: Procedure1; ...: End; 2009/6/29 Evandro Siqueira vans...@gmail.com Acho que não expliquei direito... a procedure ou função é do delphi e não do banco. Apenas o seu nome está armazenado em uma tabela de procedures no banco de dados. Mais ou menos assim: Vou na tabela, de acordo com o usuário eu pego o nome dessa rotina e executo no delphi. Todas estas rotinas cujos nomes estão no banco, estarão declaradas no uses do delphi. humberto sales de oliveira escreveu: para firebird: IBQuery1.close; IBQuery1.Sql.Text := 'SELECT RDB$PROCEDURE_NAME FROM RDB$PROCEDURES'; IBQuery1.OPEN; L.Clear; WHILE NOT IBQUERY1.Eof DO BEGIN Listbox1.items.Add(IBQUERY1.Fields[0].ASSTRING); IBQUERY1.Next; END; Evandro Siqueira escreveu: Bom dia pessoal, Estou com a necessidade de implementar uma rotina que pegue o nome de uma function ou procedure que está armazenada no banco de dados e execute-a. Isso é possível? Se sim, alguém sabe como eu posso fazer isso? -- []s. Evandro Siqueira Programador de Sistemas Lessentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Leandro, MuTukA [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
Re: [delphi-br] Executar uma função...
Dúvida dentro da dúvida: Por acaso isso não seria o trabalho de um parser? Atte, 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 seg, 29/6/09, Leandro mutu...@yahoo.com.br escreveu: De: Leandro mutu...@yahoo.com.br Assunto: Re: [delphi-br] Executar uma função... Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 29 de Junho de 2009, 10:11 Bom isso nao sei se eh possivel pois nunca tentei.. mas se vc salvar o nome de um objeto vc pode executa-lo pelo findcomponents como um colega ja citou... agora para contornar isso vc pode usar um case Case QueryFuncao.AsInteger of 0: Funcao1; 1: Funcao2; 2: Procedure1; ...: End; 2009/6/29 Evandro Siqueira vans...@gmail.com Acho que não expliquei direito... a procedure ou função é do delphi e não do banco. Apenas o seu nome está armazenado em uma tabela de procedures no banco de dados. Mais ou menos assim: Vou na tabela, de acordo com o usuário eu pego o nome dessa rotina e executo no delphi. Todas estas rotinas cujos nomes estão no banco, estarão declaradas no uses do delphi. humberto sales de oliveira escreveu: para firebird: IBQuery1.close; IBQuery1.Sql.Text := 'SELECT RDB$PROCEDURE_NAME FROM RDB$PROCEDURES'; IBQuery1.OPEN; L.Clear; WHILE NOT IBQUERY1.Eof DO BEGIN Listbox1.items.Add(IBQUERY1.Fields[0].ASSTRING); IBQUERY1.Next; END; Evandro Siqueira escreveu: Bom dia pessoal, Estou com a necessidade de implementar uma rotina que pegue o nome de uma function ou procedure que está armazenada no banco de dados e execute-a. Isso é possível? Se sim, alguém sabe como eu posso fazer isso? -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Leandro, MuTukA [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
