Arrendondando Valores

[fernando_vip]

Boa tarde,

Um caso que as vezes, por descuido, nos enrrolamos .

Mas como aqui tudo é compartilhado, ai vai:

procedure RoundDecimal(var AValue; double; Const ADecimal; integer);

var

strValue : string

begin

strValue:=FloatToStrF(AValue,ffFixed.18,ADecimal);

AValue:= StrToFloat(strValue);

end