|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/12/26 10:14:10 |
标题: |
如何将real型转换成integer型 |
浏览:1842 |
|
加入我的收藏 |
楼主: |
如何将real型数值转换成integer型数值?
----------------------------------------------
- |
作者: |
charlesb (charles barkley) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/12/26 10:46:07 |
1楼: |
i:integer; r:real;
i:=trunc(r);
----------------------------------------------
喜欢运动、音乐、收藏、旅游的程序员。 http://www.x163.org/?r=charles_b
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2003/12/26 11:28:13 |
2楼: |
var f:double; i,j:longint; begin //strtofloatdef('12345.12345', 0)//控制小数点 f:=strtofloat(edit1.Text );//123.565 i:=round(f);//四舍五入 j:=trunc(f);//直接去掉小数点 edit2.Text :=inttostr(i);//124 edit3.Text :=inttostr(j);//123 end;
----------------------------------------------
|
|