Fórum Procedimento para botão #338577

procedure TformResumo.dbISChange(Sender: TObject);
var
  valorBase, valorRef, resultado : real;
begin
  valorBase := retornaTotal(dbIS.Text);
  valorRef  := retornaTotal(edtIS.Text);
  if btnVezes then  //Aqui está a duvida
  begin
    resultado := valorBase * valorRef;
    dbIS.Text := FloatToStr(resultado);
  end else
  begin
    if btnDividir then  //Aqui está a duvida
    begin
      resultado := valorBase / valorRef;
      dbIS.Text := FloatToStr(resultado);
    end;
  end;
end;
  inherited;

end;

procedure TformResumo.btnVezes(Sender: TObject);
begin
  dbIS.Text := FloatToStr(StrToFloat(dbIS.Text) * StrToFloat(edtIS.Text));
end;


procedure TformResumo.btnDividir(Sender: TObject);
begin
  dbIS.Text := FloatToStr(StrToFloat(dbIS.Text) / StrToFloat(edtIS.Text));
end;