Operaciones númericas

[[seoane]]

Para comparar ambos números puedes usar la función SameValue de la unidad math

[marcoszorrilla]

Muy buen apunte Seone, tengo que reconocer que no sabía de la existencia de esa función.

Un Saludo.

[emeritos]

Gracias por las respuestas, pero no hay alguna funcion de redondeo.
He probado con Round y RoundTo pero ninguna de las dos funciona como viene en la ayuda.

[roman]

¿Para qué la quieres? A menos que hayas olvidado mencionar algo, la función que comenta seoane es lo que necesitas. Tú mismo estás indicando que ambos valores no son iguales por una pequeña diferencia pero quieres tratarlos como si fuesen iguales. Pues bien, éso es justamente lo que hace SameValue:

Código Delphi [-]
if SameValue(A, B, .001) then
  ShowMessage('Los valores son ''casi'' iguales (no difieren en más de .001)');

// Saludos

[emeritos]

Si me ha servido muy bien, pero necesito el redondeo a tres decimales porque cuando el usuario introduce en un campo edit.text un valor (le obligo a que solo sean numeros y el punto decimal), puede meter mas de 3 decimales y despues en la Base de Datos cuando la miro a traves de Mysql Administrator veo que tienen mas de tres decimales tal y como lo ha introducido el usuario. Y yo quiero que como maximo sean tres decimales.

[Robert01]

¿No es posible usar un TMaskEdit? En ese caso podrías usar la propiedad EditMask de dicho control.

Saludos