|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
asddd (白菜帮子) |
★☆☆☆☆ |
-
|
普通会员 |
|
2004/1/26 11:33:34 |
标题: |
请问:delphi中提供直接将一个real 转换为 integer的方法吗? |
浏览:1348 |
|
加入我的收藏 |
楼主: |
请问:delphi中提供直接将一个real 转换为 integer的方法吗?
我是新近刚开始学习 delphi,以前也没有接触过 pascal ,不知 delphi 中有没有直接将 real 转换为 integer 的方法?我自己写了一个转换的 procedure ,先将 real 转换为 string 截取 '.' 前的字符串,再转换为 integer,虽然可以完成工作,但对于计算量大的时候,速度会受影响,所以,请教高手,有没有更好的办法?
另外,具有 canvas 的 object 都有哪些啊?
多谢了!在线等喔!
----------------------------------------------
-我菜,就想我最喜欢吃的白菜... |
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/1/26 11:36:44 |
1楼: |
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;
----------------------------------------------
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/1/26 11:41:34 |
2楼: |
至于canvas 偶不知道有哪里 偶都是用到了 看DELPHI帮助 没有必要 找几个 也很少有人干这种疲于奔命的事情
----------------------------------------------
|
作者: |
asddd (白菜帮子) |
★☆☆☆☆ |
-
|
普通会员 |
|
2004/1/26 11:45:15 |
3楼: |
谢谢!这么快啊,嘿嘿!来对地方了。多些!
----------------------------------------------
-我菜,就想我最喜欢吃的白菜...
|
|