Redondea un número fraccionario al número de dígitos decimales especificado.
Ejemplo de uso:
1 2 3 4 5 6 7 8 9 |
procedure TformGArticulo.txtDExit(Sender: TObject); begin if (bd.State in [dsinsert, dsedit]) then begin bdpreciocompra.AsFloat := RoundTo (StrToFloatDef(pc.Text,0) * (100 - StrToFloatDef(dd.Text, 0)) / 100), 2); Calculo.Visible := false; end; |
Esta función pertenece a la Unidad Math, con lo cual habrá que añadir una referencia a esta unidad en la cláusula USES:
Uses Math;