Boa noite, André. Ao invés de vc usar o FormatFloat() para valores de moeda use FormatCurr().
Quanto ao splash, outro dia apanhei um bocado pq precisava dar um splash antes de exibir tela de login e a tela principal do programa. Faz tempo que usei um progress bar em um projeto meu para fazer abertura de um programa, não me lembro agora mas assim que lembrar te dou um toque, ok? Só me lembro que tratei em outro arquivo e não no .DPR Uma sugestão, só pra adiantar, veja se resolve o seu caso... (usei neste último projeto meu) .. Application.Initialize; Application.ShowMainForm := false ; //=> aqui é para esconder o formulário // principal, no seu caso, frmJuros Application.CreateForm(TfrmJuros, frmJuros); frmJuros.Hide; Application.Run; .. No evento OnHide do frmJuros: .. if Application.FindComponent( 'frmSplash' ) = nil then Application.CreateForm(TfrmSplash, frmSplash); .. E no evento OnCreate do frmSplash: .. // delimite o tempo da progressBar e // depois que esgotar o tempo vc dá um show() no // frmJuros e dá um close() no frmSplash .. []'s Sheila ----- Original Message ----- From: Andre de Souza Ferreira To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 10:09 AM Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no código!!!!" - Todos, Especial Sheila Dúvida de Splash e Format Bom dia Sheila; Desculpe-me não ter lhe respondido ontem, estava muito atarefado!!!! Em relação ao código, por distração minha, estava colocando no lugar errado!!!!! Consegui concertar o outro erro, o cálculo da taxa não estava saindo certo!!! Era um detalhe simples e bobo!!! Veja só abaixo: function TJuros.CalculaTaxa : real; var i, cont: integer; somatax : real; begin somatax := 0; for i:= 1 to temp do begin taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada ex: 10% é 10 / 100 + 1 => 1,1 (esse é o valor ao dia) somatax := somatax * taxfinal; // aki tava somando!!! agora vai multiplicar 1,1 * 1,1 * 1,1 * 1,1 até o tempo chevar ao final do tempo !!!!! irgh!!!!!!! :-) cont := cont + 1; end; result := somatax; end; Vc pode me ajudar em outra situação???? Ou alguém da lista!!!!! O problema é o seguinte!!!! Coloquei uma Splash como abertura e um progressbar no mesmo. O problema é que o compenente não está progredindo!!! Veja o código abaixo!!! program Projeto_Calcular_Juros; uses Forms, Main in 'Main.pas' {frmJuros}, clJuros in 'clJuros.pas', USplash in 'USplash.pas' {frmSplash}; {$R *.res} begin Application.Initialize; with TfrmSplash.Create(nil) do try ProgressBar1.Max := 100; Show; Update; Application.Title := 'Projeto_Calcular_Juros'; ProgressBar1.StepBy(25); // AKI NÃO TÁ EXECUTANDO Application.CreateForm(TfrmJuros, frmJuros); ProgressBar1.StepBy(25); // NEM AKI !!!!!! Application.CreateForm(TfrmSplash, frmSplash); finally Free; end; Application.Run; end. Pq não tá rolando????? Como o programa é pequeno, a Splash inicializava muito rápida, em tão fiz o seguinte no oncreate do frmJuros (form principal): Sleep (5000); frmJuros.Show; Será que isso tá implicando no progress não funcionar????????????????? Outra questão simples e boba é esta!!!!! Tirei da Net esse código da net!!!!! Lista.Add(' O juros para o período é de: R$ ' + formatfloat('##0.00', (X2)) + ' reais' ); O problema é que os números estão aparecendo da segunte forma!!! 3,4588754545454e1 Alguém pode me dá uma dica!!!??????? Um abraço a todos!!!!! -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila Enviada em: terça-feira, 21 de junho de 2005 11:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no código!!!!" Olá, André. Deveria funcionar... o que vc fez???? Pq fiz o teste aqui com o seu código e funcionou... Qual erro que deu???? []'s Sheila ----- Original Message ----- From: Andre de Souza Ferreira To: delphi-br@yahoogrupos.com.br Sent: Monday, June 20, 2005 8:32 AM Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no código!!!!" Sheila; Não funcionou!!?? :-) Help!!! -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila Enviada em: domingo, 19 de junho de 2005 15:04 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no código!!!!" André, faltou criar um objeto do tipo TStringList. coloque : lista := TstringList.Create; antes de: X1 := Capit * somatax; []'s Sheila ----- Original Message ----- From: André Ferreira To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Sunday, June 19, 2005 2:08 PM Subject: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no código!!!!" Boa tarde a todos; Estou fazendo um projeto para o meu professor da faculdade e estou desesperado pois não sai mais nada do tico e teco aki!!!!! Tô pedindo arrego aos mais experientes dos grupos pois tô com a corda no pescoço!!!! A questão é a seguinte: preciso construir um objeto juros que possua três propriedades, capital, tempo e taxa, e um método que calcule o juros simples desse capital!!!! Instanciei o objeto Juros da seguinte forma: unit clJuros; interface uses Classes, Dialogs, SysUtils; Type TJuros = Class Protected tax : real; capit: real; temp : integer; taxfinal : real; somatax: real; function CalculaTaxa: real; public constructor Construtor (taxa, capital, taxafinal, somataxa: real; tempo : integer); function CalculaJuros : TStringList; end; implementation constructor TJuros.Construtor(taxa , capital, taxafinal, somataxa : real; tempo : integer); begin tax := taxa; capit := capital; temp := tempo; taxfinal := taxafinal; somatax :=somataxa; end; function TJuros.CalculaTaxa : real; var i, cont: integer; somatax : real; begin somatax := 0; for i:= 1 to temp do begin taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada ex: 10% é 10 / 100 + 1 => 1,1 (esse é o valor ao dia) somatax := somatax + taxfinal; // depois ele é multiplicado por i, se for 10 dias ele vai multiplicar ex: 1,1 * 1,1 até chegar ao tempo final (10 dias) cont := cont + 1; // não sei o que acontece aki !!! dá o seguinte erro [Hint] clJuros.pas(42): Value assigned to 'cont' never used. Fala que não o cont não é usado!!! não sei como resolver!!! end; result := somatax; end; function TJuros.CalculaJuros : TStringList; var lista : TstringList; X1, X2 : Real; begin X1 := Capit * somatax; X2 := X1 - Capit; Lista.Add(' O juros para o período é de: ' + floattostr(X2) + ' reais' ); // aki o erro é este : [Warning] clJuros.pas(57): Variable 'lista' might not have been initialized, A VARIÁVEL LISTA TALVEZ NÃO FOI INICIALIZADA!!! result := Lista; end; end. Como vcs podem perceber, o principal erro está n função calculataxa, onde o cont não é utilizado ???? e na calculajuros, onde a variável não foi inicializada!!! No evento click do Botão coloquei o seguinte cpodigo!!! unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons; type TfrmJuros = class(TForm) pnJuros: TPanel; StApresentacao: TStaticText; lblCapital: TLabel; lblTempo: TLabel; lblTaxa: TLabel; txtCapital: TEdit; txtTempo: TEdit; txtTaxa: TEdit; btnCalcularJuros: TBitBtn; mmoResultado: TMemo; pnJuros2: TPanel; Label1: TLabel; procedure btnCalcularJurosClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmJuros: TfrmJuros; implementation uses clJuros; {$R *.dfm} procedure TfrmJuros.btnCalcularJurosClick(Sender: TObject); var ojuros, otaxa : TJuros; taxa, capital, taxafinal, somataxa : real; tempo : integer; begin mmoResultado.Clear; taxa := strtofloat (txtCapital.text); capital := strtofloat (txtCapital.text); Tempo := strtoint (txtTempo.text); otaxa := TJuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NÃO SEI SE OS PARÂMETROS ESTÃO SENDO PASSADOS CORRETAMENTE ojuros := Tjuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NÃO SEI SE OS PARÂMETROS ESTÃO SENDO PASSADOS CORRETAMENTE mmoResultado.Lines.AddStrings (ojuros.CalculaJuros); otaxa.Free; ojuros.Free; end; end. Alguêm pode me socorrer!!!!!!!!! Posso enviar o código fonte se for melhor!!!!!! Me ajudem por favor!!!!!!!!!!!! Um abraço a todos e obrigado! André Ferreira [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _____ 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: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! < http://br.yahoo.com/info/utos.html> . [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _____ 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: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html