(Resolvido) arredondamento

[laine]

ola pessoal estou com seguinte problema tenho dois valores: 0,188 e 0,125 e preciso somar os dois porem considerando apenas as duas primeiras casas decimais sem arredondar ou seja 0,18+0,12, porem o resultado que é retornado é sempre 0,31 pois esta considerando as 3 casas decimais.

[Jhonas]

Uma das maneiras

procedure TForm1.Button1Click(Sender: TObject);
var v1,v2,v3 : real;
begin
   v1 := trunc(0.188 * 100) / 100;
   v2 := trunc(0.125 * 100) / 100;
   v3 := v1 + v2;
   showmessage(floattostr(v3));
end;

abraço

[laine]

Uma das maneiras

procedure TForm1.Button1Click(Sender: TObject);
var v1,v2,v3 : real;
begin
   v1 := trunc(0.188 * 100) / 100;
   v2 := trunc(0.125 * 100) / 100;
   v3 := v1 + v2;
   showmessage(floattostr(v3));
end;

abraço

obrigada Jhonas ajudou bastante