¿Delphi conserva dos decimales? Cómo lograrlo.

Delphi conserva 2 decimales. El método de implementación es el siguiente:

x ：= Round(x * 100) / 100

Después de agregar MATH; unidad en la sección USUARIO. Puede usar

x := RoundTo(y, 2)

o usar el siguiente método:

x=a/b;

x=strtofloat(formatfloat('0.00', x));

Información ampliada:

En la programación diaria, a menudo nos encontramos con aplicaciones que necesitan configurarse. el número de decimales. Por ejemplo, la mayoría de las monedas en los billetes diarios conservan 2 decimales, es decir, "yuan" es la unidad exacta y la unidad de "yuan" es exacta a "cent".

En el lenguaje Delphi, es necesario retener varios dígitos después del punto decimal, puede usar la función función. El código de muestra es el siguiente:

procedure?TForm1.Button2Click(Sender: ?TObject);

var

a: ?real;

b1: ?Single;?//Tipo de punto flotante

b2 , b3: ?Currency;?//Tipo de moneda, con precisión de cuatro decimales

begin

a::=?1?/?9;?// Ingrese directamente el resultado de "RoundTo",

//Si se vuelca a otro Un número de punto flotante provocará un error

ShowMessage(FloatToStr(RoundTo(a,?-2))); ?// Mantener dos decimales y redondear

b1:=? RoundTo(a,? -2);

ShowMessage(FloatToStr(b1));?// Mantener 2 decimales, redondeado

b2?:=?SimpleRoundTo(a);

ShowMessage(FloatToStr(b2));?//Mantener 2 decimales, sin redondear

b3?:=?Trunc(a?*100)/100;

p>

ShowMessage(FloatToStr(b2));

end;?