Fórum porque ele nao calcula certo?????? #185498

:oops: ESTOU USANDO O PROCEDIMENTO ABIXO PARA EFETUAR UM CÁLCULO SIMPLES...
O PRO É QUE QUANDO ELE VAI CALCULAR (MEDIA/FINAL) ELE FICA JOGANDO NO DBEDIT1 APENAS O VALOR DA VARIÁVEL MEDIA! PORQUE ELE NÃO ESTÁ GRAVANDO O CÁLCULO CORRETO(QUE DEVERIA SER MEDIA/FINAL)????

MUITO OBRIGADO POR QUALQUER AJUDA !!!!

ALEXANDRE TAVARES

procedure TFrmAluno.btnCalMediaClick(Sender: TObject);
var
total: Double;
Contador: Integer;
Media, Final: Double;

begin
Contador:= 0;
Total:= 0;
Final:= Datamodule1.TblMonografiaMEDIA.Value;
Media:= 0;
DataModule1.TblAluno_Disciplina.First;
While Not DataModule1.TblAluno_Disciplina.Eof Do
Begin
If (DataModule1.TblAluno_DisciplinaMEDIA.Value <> ´-´) And (DataModule1.TblAluno_DisciplinaMEDIA.Value <> ´Disp´)Then
Contador:= Contador + 1;
If (DataModule1.TblAluno_DisciplinaMEDIA.Value <> ´-´) And (DataModule1.TblAluno_DisciplinaMEDIA.Value <> ´Disp´)Then
total:= total + StrToFloat(DataModule1.TblAluno_DisciplinaMEDIA.Value);
DataModule1.TblAluno_Disciplina.Next;
Media:= total / Contador;
DBEdit1.Text:= FloatToStr(Media / Final);
End;

end;