Arsip: Bug: Round Function

bug tersebut adalah, jika nilai pecahan berkoma yang dimasukkan adalah nilai ganjil, maka akan dinaikkan ke atas, tetapi jika genap malah di turunkan ke bawah untuk pembulatannya.

Edit1.Text := IntToStr(Round(23.5)); //->24 Edit2.Text := IntToStr(Round(22.5)); //-> 22

Syntax Highlighted with https://pascal-id.org/syntax

maka untuk mengatasinya, kita harus melupakan fungsi round bawaan delphi - dan membuat fungsi baru. contoh fungsi untuk round :

function MyRound(Const X: Extended): Int64; begin Result:= Trunc( X ); if ( Frac( X ) >= 0.5 ) then Result:= Result + 1; end;

Syntax Highlighted with https://pascal-id.org/syntax

CMIIW

sumber : http://www.q3.nu/trucomania/truco.cgi?374&ing