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

wzping 2003-03-10 09:30:35

请教！
thanks !

...全文

62 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

letgolxh 2003-03-10

打赏
举报

trunc
round

wzping 2003-03-10

打赏
举报

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

xiaocha 2003-03-10

打赏
举报

在Form的OnSize中调用Invalidate;

wzping 2003-03-10

打赏
举报

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

rocktan 2003-03-10

打赏
举报

trunc(..)

xiaocha 2003-03-10

打赏
举报

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

lincanwen 2003-03-10

打赏
举报

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

Drate 2003-03-10

打赏
举报

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;

netwolfds 2003-03-10