一個四捨五入函數

下面是保島國整數的四捨五入函數，如果要保島國n位小數，只需簡單修改。
　　function myround(x : extended) : extended;
　　begin
　　if (int(x)*10+5) > int(x*10) then
　　begin
　　result := floor(x);
　　end else
　　begin
　　result := ceil(x);
　　end;