关于一个“四舍五入”的问题！

Question

其实并不是四舍五入。比如怎么将 0.02 0.1 2.3之类的小数，而不管有几位小数，哪怕是0.000001都变为整数，都进1，0.02变为1， 0.1也要变为1，2.3要变为3 依此类推!

Answer 1

edit1.Text:=inttostr(round(strtofloat(edit1.Text)+1));
即
i:real;i:=round(i)+1;

Answer 2

不好意思
var
i:real
j:integer;
j:=round(i)+1;

Answer 3

可能我没有说清楚，我的目的是：我有两个数字会相除，a/25，a是Int型，除出来的结果，只要有小数就向个位进1，得到这个进位后的结果，最终结果为Int型。

Answer 4

应该是Int(i)+1或Trunc(i)+1
round(i)+1,当i>*.5时，会多加个1。

Answer 5

但如果要进位的话，就要用round了

Answer 6

function TForm1.Rou(f: real):  integer;
var i,j:integer;
    s:string;
begin
    j:=0;
    s:=floattostr(f);
    for i:=1 to length(s) do
    begin
       if s[i]='.' then
       begin
          if strtoint(s[i+1])<5 then
             j:=round(f)+1
          else
             j:=round(f);
          break;
       end;
    end;
     result:=j;
end;

Answer 7

自己写，
把要判断的数存到个string类型的str，判断他小数点后面有没非0元