Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Round (numero, digitos)





Redondea un número fraccionario al número de dígitos decimales especificado.


Ejemplo de uso:


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;



Funciones Delphi

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+