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
<*> 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
