DBCombobox

Delphi

08/03/2003

[quote] Olá, preciso fazer um cálculo, de três DBEdit que receberá valores inteiros e quebrados, também um DBcomboBox com as letras G, MG e MCG, cada uma terá uma valor como, G = 1, MG = 0,0001 e MCG = 0,0000001, entao para facilitar para o usuário resolvi usar as siglas, mas elas nao funcionam, os outros campos fazem as multiplicação, mas o DBEdit comboBox nao, porque?

Estou usando o Paradox.
Obrigado se alguem puder me ajudar?
Meu e-mail é: ma-silverio@bol.com.br



Delphi1

Delphi1

Curtidas 0

Respostas

Thematrix:reloaded

Thematrix:reloaded

08/03/2003

Coloque seu codigo aqui para a gente ajuda-lo mais facilmente, Ok?


GOSTEI 0
Anonymous

Anonymous

08/03/2003

Coloque seu codigo aqui para a gente ajuda-lo mais facilmente, Ok?


G = 0,0001
MG = 0,00001
MCG = 1


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*3);


GOSTEI 0
POSTAR