Fórum DBComboBox #143550

Tenho 4 DBEdit que vou entrar com valores diversos e um
DBComboBox que terá valores fixos, como 1 0,0001 e
0,001
Para evitar que o usuário digite muitos numeros e acabe
esquecendo de algum, resolvi usar letras g=1 MG=
0,001 e MCG = 0,0001 para facilitar e evitar erro de
digitação.
Mas todos os DBEdit fazem o calculo, mas o DBComboBox
nao, porque? estou enviando a rotina, ajude me por
favor, obrigado.


procedure TFormCadProd.BotaoOKClick(Sender: TObject);
Var
P, Fat, Q, UP, PF : Real;
G, MG, MCG : string;
begin
G := IntToStr(0,001);
P := StrToFloat(DBEditPeso.Text);
Fat := StrToFloat(DBEditFator.Text);
Q := StrToFloat(FormInclusao.DBEdit1.Text);
UP := StrToFloat(DBEditUnid.Text);
PF := (P*Q*Fat*UP);
DBEditFinal.Text := FormatFloat(´#.00000´,PF);
If DBComboGrama.Text = G then
PF := (P*Q*Fat*UP*G);

end;
end.

[quote:fa534035dd][/quote:fa534035dd]