Operaciones númericas

[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