Arredomdamento

Question

Boa tarde galera !!!Tenho um sistema e estou usando client data set.Tenho uma valor quebrado ex : 39,999 como fa�o pra arredondar esse valor para 40.At� mais !!!...

Anonymous · Answer

var   S, T: string;begin   Str(1.4:2:1, T);   S := T + � rounds to � + IntToStr(Round(1.4)) + #1310;   Str(1.5:2:1, T);   S := S + T + � rounds to � + IntToStr(Round(1.5)) + 1310;   Str(-1.4:2:1, T);   S := S + T + � rounds to � + IntToStr(Round(-1.4)) + 1310;   Str(-1.5:2:1, T);   S := S + T + � rounds to � + IntToStr(Round(-1.5));   MessageDlg(S, mtInformation, [mbOk], 0);...