Duvida ComboBox, urgente
Delphi1
Olá tenho uma rotina com comboBox e preciso colocar mais um, mas preciso que ele faça o seguinte cálculo.
Se meu Combo Box for MG/G = Q*P/Fat
Se meu ComboBox for ¬ = Q*P/Fat*100
Como é que eu faço, porque tentei mas nao funciona o segundo ComboBox.
Estou mandando a minha rotina e se alguem puder escrever para mim como faço ficarei muito grato.
Meu e-mail é: ma-silverio@bol.com.br
A minha rotina é:
procedure TFormCadProd.BotaoOKClick(Sender: TObject);
Var
X, P, Fat, Q, PF : Real;
begin
P := StrToFloat(DBEditPeso.Text);
Fat := StrToFloat(DBEditFator.Text);
Q := StrToFloat(FormInclusao.DBEdit1.Text);
X := 1;
If ComboBox.text = ´G´ Then
X := 1;
If ComboBox.Text = ´MG´ Then
X := 0.001;
If ComboBox.text = ´MCG´ Then
X := 0.000001;
If ComboBox.text = ´´ Then
X := 1;
PF := ( P * Fat * Q* X );
DBEditFinal.Text := FormatFloat( ´#0.0000000´, PF );
end;
Delphi1
Curtidas 0