请问：那个函数可以取得一个实数的整数部分啊？

Question

请教！
thanks !

Answer 1

var   S, T: string;
begin
   Str(1.4:2:1, T);
   S := T + ' Truncs to ' + IntToStr(Trunc(1.4)) + #13#10;
   Str(1.5:2:1, T);
   S := S + T + ' Truncs to ' + IntToStr(Trunc(1.5)) + #13#10;
   Str(-1.4:2:1, T);
   S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.4)) + #13#10;
   Str(-1.5:2:1, T);
   S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.5));
   MessageDlg(S, mtInformation, [mbOk], 0);
end;

Answer 2

Trunc是舍去小数部分，取整数部分。
Round是4舍5入取整数。

Answer 3

Trunc是舍去小数部分，取整数部分，返回类型整型
Round是4舍5入取整数，返回类型整型
Int取整，返回类型实型

Answer 4

还有！
我在Form上，用TextOut写了一些字，可是当我改变Form的大小的时候原来写的东西好像没有消除掉。请问如何解决啊？
谢谢啦！

Answer 5

谢谢！
我在Form中调用Refresh好像也达到了同样的效果！
请问你知道跟调用Invalidate有什么区别吗？