ach mist... den hab ich übersehen
hab aber fast das gleiche nur stimmt wohl mein trunc net..
Daher nochmal:
Delphi-Quellcode:
function mathround(x : real) : integer;
Begin
if frac(x) >= 0.5 //frac liefert den das nach dem ,
then result := ceil(x) //rundet auf
else result := floor(x); //runded ab
end;