ActiveDelphi

[Rafa001]

Eu estou fazendo um programa em delphi 7 com firebird 1.5.
Existe uma tabela q tem três campos com o tipo numeric(9,2). No delphi eles são reconhecidos como BCD(Currency), eu consigo gravar e tudo sem erro, mas quando eu vejo alguns registros eles sempre vem com o valor 1056... o por que eu n sei...

Muito obrigado

If EdtPeso.Text = \'\' then EdtPeso.Text := \'0\';
If EdtAltura.Text = \'\' then EdtAltura.Text := \'0\';

Peso := StrToFloat(EdtPeso.Text);
Altura := StrToFloat(EdtAltura.Text);

If EdtAltura.Text = \'0\' Then
Massa := 0
Else
Massa := Peso / (Altura * Altura);

DmConsultorio2.SProc_C_M.ParamByName(\'OPERACAO\').AsInteger := 1;
DmConsultorio2.SProc_C_M.ParamByName(\'CD_CONSULTA\').AsInteger := DmConsultorio2.CDS_ConsultaCD_CONSULTA.AsInteger;

If Altura = 0 Then
DmConsultorio2.SProc_C_M.ParamByName(\'ALTURA\').AsBCD := 0
Else
DmConsultorio2.SProc_C_M.ParamByName(\'ALTURA\').AsBCD := Altura;

If Peso = 0 Then
DmConsultorio2.SProc_C_M.ParamByName(\'PESO\').AsBCD := 0
Else
DmConsultorio2.SProc_C_M.ParamByName(\'PESO\').AsBCD := Peso;

If Massa = 0 Then
DmConsultorio2.SProc_C_M.ParamByName(\'M_CORPOREA\').AsBCD := 0
Else
DmConsultorio2.SProc_C_M.ParamByName(\'M_CORPOREA\').AsBCD := StrToFloat(FormatFloat(\'##00.00\',Massa));

DmConsultorio2.SProc_C_M.ExecProc;
_________________
<marquee> Só sei que nada sei... quero dizer, não sei... ah! Sei lá...</marquee>

[Ghost_Rider]

Trabalhe em vez de currency como float. Funciona da mesma forma.