[delphi-br] Criar função
Saudações, Estou necessitando criar uma função para resolver equações matemáticas. Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula retornando o resultado. Alguém ja fez algo assim. Grato Sandro [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função
Olá 'xará', É bem tranquilo fazer esta função, só não entendi o '^' da fórmula... Abraços Sandro Ricardo - Original Message - From: Sandro To: delphi-br@yahoogrupos.com.br Sent: Friday, July 11, 2008 8:40 AM Subject: [delphi-br] Criar função Saudações, Estou necessitando criar uma função para resolver equações matemáticas. Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula retornando o resultado. Alguém ja fez algo assim. Grato Sandro [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Criar função
O ^ é Potência. Luciano Calenzani Simões - Mensagem original De: Sandro Ricardo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 11 de Julho de 2008 8:58:08 Assunto: Re: [delphi-br] Criar função Olá 'xará', É bem tranquilo fazer esta função, só não entendi o '^' da fórmula... Abraços Sandro Ricardo Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função
Vai no www.torry.net que tem uma série de componentes que fazem o que precisas. http://www.torry.net/pages.php?id=307 Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br Sent: Friday, July 11, 2008 9:01 AM Subject: Res: [delphi-br] Criar função O ^ é Potência. Luciano Calenzani Simões - Mensagem original De: Sandro Ricardo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 11 de Julho de 2008 8:58:08 Assunto: Re: [delphi-br] Criar função Olá 'xará', É bem tranquilo fazer esta função, só não entendi o '^' da fórmula... Abraços Sandro Ricardo Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,48774c23446091861215523 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função
Vou procurar. Obrigado Jackson - Original Message - From: Jackson Gomes - ToolsComps To: delphi-br@yahoogrupos.com.br Sent: Friday, July 11, 2008 8:48 AM Subject: Re: [delphi-br] Criar função Estou necessitando criar uma função para resolver equações matemáticas. Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula retornando o resultado. Alguém ja fez algo assim. Procure por TMathParser no google. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função
function calcula(x,y,z,w:Float):float begin result := x*y))/z)potência w) Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula end; Faltou a potência, mas acho que na classe Math do delphi deve ter isso ai Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em sex, 11/7/08, Jackson Gomes - ToolsComps [EMAIL PROTECTED] escreveu: De: Jackson Gomes - ToolsComps [EMAIL PROTECTED] Assunto: Re: [delphi-br] Criar função Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 11 de Julho de 2008, 8:48 Estou necessitando criar uma função para resolver equações matemáticas. Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula retornando o resultado. Alguém ja fez algo assim. Procure por TMathParser no google. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: [EMAIL PROTECTED] ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br [EMAIL PROTECTED] com.br Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função
Obrigado Alessandro - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Friday, July 11, 2008 10:08 AM Subject: Re: [delphi-br] Criar função Vai no www.torry.net que tem uma série de componentes que fazem o que precisas. http://www.torry.net/pages.php?id=307 Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br Sent: Friday, July 11, 2008 9:01 AM Subject: Res: [delphi-br] Criar função O ^ é Potência. Luciano Calenzani Simões - Mensagem original De: Sandro Ricardo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 11 de Julho de 2008 8:58:08 Assunto: Re: [delphi-br] Criar função Olá 'xará', É bem tranquilo fazer esta função, só não entendi o '^' da fórmula... Abraços Sandro Ricardo Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,48774c23446091861215523 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Criar função
A função do link abaixo, faz isso: http://www.swissdelphicenter.ch/en/showcode.php?id=470 Detalhe, ela não trabalha com funções matemáticas, apenas expressões algébricas simples! Não trabalha com potenciação nem radiciação. Vc precisa alterá-la para isso. Outra dica é procurar pela Internet pelo componente TMathParser. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 11 Jul 2008 08:40:04 -0300 Subject: [delphi-br] Criar função Saudações, Estou necessitando criar uma função para resolver equações matemáticas. Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula retornando o resultado. Alguém ja fez algo assim. Grato Sandro _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Criar função
Declare a unit Math em uses e abaixo segue a função function calcula(x,y,z,w: Real): Real; begin Result := Power(((x*y)/z),w); end; Odail Della Niesi Junior São Pedro-SP Berdam escreveu: function calcula(x,y,z,w:Float):float begin result := x*y))/z)potência w) Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula end; Faltou a potência, mas acho que na classe Math do delphi deve ter isso ai -- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com http://passandoveneno.blogspot.com -- --- Em sex, 11/7/08, Jackson Gomes - ToolsComps [EMAIL PROTECTED] mailto:jackson%40toolsandcomps.com escreveu: De: Jackson Gomes - ToolsComps [EMAIL PROTECTED] mailto:jackson%40toolsandcomps.com Assunto: Re: [delphi-br] Criar função Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 11 de Julho de 2008, 8:48 Estou necessitando criar uma função para resolver equações matemáticas. Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula retornando o resultado. Alguém ja fez algo assim. Procure por TMathParser no google. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: [EMAIL PROTECTED] ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br [EMAIL PROTECTED] com.br Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função
valeu pelo real e pelo power hehehe Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em sex, 11/7/08, Odail Della Niesi Junior [EMAIL PROTECTED] escreveu: De: Odail Della Niesi Junior [EMAIL PROTECTED] Assunto: Re: [delphi-br] Criar função Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 11 de Julho de 2008, 10:42 Declare a unit Math em uses e abaixo segue a função function calcula(x,y, z,w: Real): Real; begin Result := Power(((x*y) /z),w); end; Odail Della Niesi Junior São Pedro-SP Berdam escreveu: function calcula(x,y, z,w:Float) :float begin result := x*y))/z) potência w) Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula end; Faltou a potência, mas acho que na classe Math do delphi deve ter isso ai - - - - - - Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricul ar.com.br/ berdam http://www.curricul ar.com.br/ berdam Visite http://passandovene no.blogspot. com http://passandovene no.blogspot. com - - - - - - --- Em sex, 11/7/08, Jackson Gomes - ToolsComps [EMAIL PROTECTED] ps.com mailto:jackson% 40toolsandcomps. com escreveu: De: Jackson Gomes - ToolsComps [EMAIL PROTECTED] ps.com mailto:jackson% 40toolsandcomps. com Assunto: Re: [delphi-br] Criar função Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br Data: Sexta-feira, 11 de Julho de 2008, 8:48 Estou necessitando criar uma função para resolver equações matemáticas. Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula retornando o resultado. Alguém ja fez algo assim. Procure por TMathParser no google. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: [EMAIL PROTECTED] ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br [EMAIL PROTECTED] com.br Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função
Reescrevendo: [ *** Inicio *** ] Uses Math; Function calcula(x,y, z,w:Float) :float Begin result := Power( ( x * y /z ), w ); End; [ *** Final *** ] Atte, Ricardo. --- Em sex, 11/7/08, Berdam [EMAIL PROTECTED] escreveu: De: Berdam [EMAIL PROTECTED] Assunto: Re: [delphi-br] Criar função Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 11 de Julho de 2008, 10:26 function calcula(x,y, z,w:Float) :float begin result := x*y))/z) potência w) Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula end; Faltou a potência, mas acho que na classe Math do delphi deve ter isso ai - - - - - - Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricul ar.com.br/ berdam Visite http://passandovene no.blogspot. com Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Criar função
Creio que há dois entendimentos de sua necessidade com esta função. Alguns estão achando que você quer uma função que calcule essa equação que citou: ((10*5)/2)^3 Outros, eu inclusive, acham que você quer algo genérico, em que ao informar qualquer equação matemátiva ex.: 1+2 ou (3^4*)5 ela retorne o resultado. Tipo o que o campo de busca do Google faz ao se digitar uma equação. Qual é a sua necessidade? Luciano Calenzani Simões - Mensagem original De: Ricardo César Cardoso [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 11 de Julho de 2008 12:06:02 Assunto: Re: [delphi-br] Criar função Reescrevendo: [ *** Inicio *** ] Uses Math; Function calcula(x,y, z,w:Float) :float Begin result := Power( ( x * y /z ), w ); End; [ *** Final *** ] Atte, Ricardo. --- Em sex, 11/7/08, Berdam berdamzinho@ yahoo.com. br escreveu: De: Berdam berdamzinho@ yahoo.com. br Assunto: Re: [delphi-br] Criar função Para: [EMAIL PROTECTED] os.com.br Data: Sexta-feira, 11 de Julho de 2008, 10:26 function calcula(x,y, z,w:Float) :float begin result := x*y))/z) potência w) Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula end; Faltou a potência, mas acho que na classe Math do delphi deve ter isso ai - - - - - - Uberdam Cavaletti Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função
quer dizer elevado ao número que vem na frente Stainle --- Em sex, 11/7/08, Sandro Ricardo [EMAIL PROTECTED] escreveu: De: Sandro Ricardo [EMAIL PROTECTED] Assunto: Re: [delphi-br] Criar função Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 11 de Julho de 2008, 8:58 Olá 'xará', É bem tranquilo fazer esta função, só não entendi o '^' da fórmula... Abraços Sandro Ricardo - Original Message - From: Sandro To: [EMAIL PROTECTED] os.com.br Sent: Friday, July 11, 2008 8:40 AM Subject: [delphi-br] Criar função Saudações, Estou necessitando criar uma função para resolver equações matemáticas. Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula retornando o resultado. Alguém ja fez algo assim. Grato Sandro [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função - Solucionado
Pessoal, minha dúvida já foi resolvida, ainda hoje pela manhã o Jackson. Obrigado a todos que colaboraram. - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br Sent: Friday, July 11, 2008 1:14 PM Subject: Res: [delphi-br] Criar função Creio que há dois entendimentos de sua necessidade com esta função. Alguns estão achando que você quer uma função que calcule essa equação que citou: ((10*5)/2)^3 Outros, eu inclusive, acham que você quer algo genérico, em que ao informar qualquer equação matemátiva ex.: 1+2 ou (3^4*)5 ela retorne o resultado. Tipo o que o campo de busca do Google faz ao se digitar uma equação. Qual é a sua necessidade? Luciano Calenzani Simões - Mensagem original De: Ricardo César Cardoso [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 11 de Julho de 2008 12:06:02 Assunto: Re: [delphi-br] Criar função Reescrevendo: [ *** Inicio *** ] Uses Math; Function calcula(x,y, z,w:Float) :float Begin result := Power( ( x * y /z ), w ); End; [ *** Final *** ] Atte, Ricardo. --- Em sex, 11/7/08, Berdam berdamzinho@ yahoo.com. br escreveu: De: Berdam berdamzinho@ yahoo.com. br Assunto: Re: [delphi-br] Criar função Para: [EMAIL PROTECTED] os.com.br Data: Sexta-feira, 11 de Julho de 2008, 10:26 function calcula(x,y, z,w:Float) :float begin result := x*y))/z) potência w) Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula end; Faltou a potência, mas acho que na classe Math do delphi deve ter isso ai - - - - - - Uberdam Cavaletti Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar Função
Tenho uma Unit para isso.. me passa o seu email que te mando..
Wesley
- Original Message -
From: Leonardo Quinino
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 05, 2007 4:56 PM
Subject: [delphi-br] Criar Função
Pessoal, estou querendo criar uma função que funcione como uma
pergunta, (tipo messageDlg ) onde eu passaria a pergunta, e as opções.
Seria algo parecido com o que tem na antiga linguagem clipper
op := Alert( ' Confirmar Isso ?', {'1-Sim'}, {'2-Talvez'}, {'3-Não
Sei'}, {'4-Outra Opção'} )
//para avaliar a resposta era só...
if op = 0 //teclou esc
bla bla
endif
if op = 1
escolheu SIM
endif
if op.
Como fazer desta forma em DELPHi
Analisando o MessageDlg, só consigo as respostas já prontas do delphi
que seriam
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp);
Como faço para Criar as minhas opções personalizadas, sem ter que
instalar pakage de terceiros (quero deixar o meu codigo mais
puro possível) puro = delphianamente falando
rs:)
--
Leonardo Quinino
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.485 / Virus Database: 269.13.5/990 - Release Date: 4/9/2007 22:36
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar Função
Dica faca um Form seu ser criado dentro da sua funcao, e voce codifica ele
da maneira que quiser, entao irao aparecer quantos botoes voce quiser e os
retornos que voce quiser fica muito legal
Anderson...
- Original Message -
From: BandaLemuel
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, September 06, 2007 7:57 AM
Subject: Re: [delphi-br] Criar Função
Tenho uma Unit para isso.. me passa o seu email que te mando..
Wesley
--
- Original Message -
From: Leonardo Quinino
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 05, 2007 4:56 PM
Subject: [delphi-br] Criar Função
Pessoal, estou querendo criar uma função que funcione como uma
pergunta, (tipo messageDlg ) onde eu passaria a pergunta, e as opções.
Seria algo parecido com o que tem na antiga linguagem clipper
op := Alert( ' Confirmar Isso ?', {'1-Sim'}, {'2-Talvez'}, {'3-Não
Sei'}, {'4-Outra Opção'} )
//para avaliar a resposta era só...
if op = 0 //teclou esc
bla bla
endif
if op = 1
escolheu SIM
endif
if op.
Como fazer desta forma em DELPHi
Analisando o MessageDlg, só consigo as respostas já prontas do delphi
que seriam
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp);
Como faço para Criar as minhas opções personalizadas, sem ter que
instalar pakage de terceiros (quero deixar o meu codigo mais
puro possível) puro = delphianamente falando
rs:)
--
Leonardo Quinino
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.485 / Virus Database: 269.13.5/990 - Release Date: 4/9/2007 22:36
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar Função
Pessoal, estou querendo criar uma função que funcione como uma
pergunta, (tipo messageDlg ) onde eu passaria a pergunta, e as opções.
Seria algo parecido com o que tem na antiga linguagem clipper
op := Alert( ' Confirmar Isso ?', {'1-Sim'}, {'2-Talvez'}, {'3-Não
Sei'}, {'4-Outra Opção'} )
//para avaliar a resposta era só...
if op = 0 //teclou esc
bla bla
endif
if op = 1
escolheu SIM
endif
if op.
Como fazer desta forma em DELPHi
Analisando o MessageDlg, só consigo as respostas já prontas do delphi
que seriam
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp);
Como faço para Criar as minhas opções personalizadas, sem ter que
instalar pakage de terceiros (quero deixar o meu codigo mais
puro possível) puro = delphianamente falando
rs:)
--
Leonardo Quinino
RES: [delphi-br] Criar Função
Faca Assim
Function Mensagem(Msg,Bt1,Bt2:String):Boolean;
//
// Gera um Mensage Box personalizado a partir do Mensagem Box YES NO
//
Function Mensagem(Msg,Bt1,Bt2:String):Boolean;
var
I,K:Integer;
F:TForm;
begin
K:=0;
F:= createmessagedialog(Msg,mtconfirmation,[mbyes,mbno]);
try
for i:=0 to f.componentCount -1 do
if f.components[i] is tbutton then
with tbutton(f.components[i]) do
case modalresult of
mryes: Caption := Bt1;
mrno: Caption := Bt2;
end;
f.caption := 'Mensagem do Sistema';
K:=f.showmodal;
finally
if K = mryes then Result:=True
else Result:=False;
f.free;
end;
end;
Sd's
Dias
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Leonardo Quinino
Enviada em: quarta-feira, 5 de setembro de 2007 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Criar Função
Pessoal, estou querendo criar uma função que funcione como uma
pergunta, (tipo messageDlg ) onde eu passaria a pergunta, e as opções.
Seria algo parecido com o que tem na antiga linguagem clipper
op := Alert( ' Confirmar Isso ?', {'1-Sim'}, {'2-Talvez'}, {'3-Não
Sei'}, {'4-Outra Opção'} )
//para avaliar a resposta era só...
if op = 0 //teclou esc
bla bla
endif
if op = 1
escolheu SIM
endif
if op.
Como fazer desta forma em DELPHi
Analisando o MessageDlg, só consigo as respostas já prontas do delphi
que seriam
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp);
Como faço para Criar as minhas opções personalizadas, sem ter que
instalar pakage de terceiros (quero deixar o meu codigo mais
puro possível) puro = delphianamente falando
rs:)
--
Leonardo Quinino
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar Função
Show de Bola Jose Carlos, era exatamente o que procurava, valeu obrigado.
Em 05/09/07, Jose Carlos A Dias Filho [EMAIL PROTECTED] escreveu:
Faca Assim
Function Mensagem(Msg,Bt1,Bt2:String):Boolean;
//
// Gera um Mensage Box personalizado a partir do Mensagem Box YES NO
//
Function Mensagem(Msg,Bt1,Bt2:String):Boolean;
var
I,K:Integer;
F:TForm;
begin
K:=0;
F:= createmessagedialog(Msg,mtconfirmation,[mbyes,mbno]);
try
for i:=0 to f.componentCount -1 do
if f.components[i] is tbutton then
with tbutton(f.components[i]) do
case modalresult of
mryes: Caption := Bt1;
mrno: Caption := Bt2;
end;
f.caption := 'Mensagem do Sistema';
K:=f.showmodal;
finally
if K = mryes then Result:=True
else Result:=False;
f.free;
end;
end;
Sd's
Dias
_
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 Leonardo Quinino
Enviada em: quarta-feira, 5 de setembro de 2007 16:56
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] Criar Função
Pessoal, estou querendo criar uma função que funcione como uma
pergunta, (tipo messageDlg ) onde eu passaria a pergunta, e as opções.
Seria algo parecido com o que tem na antiga linguagem clipper
op := Alert( ' Confirmar Isso ?', {'1-Sim'}, {'2-Talvez'}, {'3-Não
Sei'}, {'4-Outra Opção'} )
//para avaliar a resposta era só...
if op = 0 //teclou esc
bla bla
endif
if op = 1
escolheu SIM
endif
if op.
Como fazer desta forma em DELPHi
Analisando o MessageDlg, só consigo as respostas já prontas do delphi
que seriam
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp);
Como faço para Criar as minhas opções personalizadas, sem ter que
instalar pakage de terceiros (quero deixar o meu codigo mais
puro possível) puro = delphianamente falando
rs:)
--
Leonardo Quinino
[As partes desta mensagem que não continham texto foram removidas]
--
Leonardo Quinino
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar Função
Boa tarde para todos... Como faço para criar uma função onde o paramentro seja do tipo objeto? Fabiana [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Criar Função
Ora, simples: function NomeDaFuncao(ParamObjeto: TObject): TipoDoRetorno; Sds. From: Fabiana [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Criar Função Date: Fri, 8 Dec 2006 13:19:42 -0200 Boa tarde para todos... Como faço para criar uma função onde o paramentro seja do tipo objeto? Fabiana [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: [delphi-br] Criar Função
uma function ou procedure ??? procedure TForm1.Button1Click(Sender: TObject); procedure blabla ( obj1 : tedit; obj2 : tlabel ); begin obj2.Caption := obj1.Text; end; begin blabla( edit1, label1 ); // é igual à label1.caption := edit1.text; end; Luiz Escobar - Segue mensagem original! - De: Fabiana [EMAIL PROTECTED] Data: Fri, 8 Dec 2006 13:19:42 -0200 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Criar Função Boa tarde para todos... Como faço para criar uma função onde o paramentro seja do tipo objeto? Fabiana [As partes desta mensagem que não continham texto foram removidas]
