Delphi中如何将一个extended型等实数强制转换为integer型

Delphi中如何将一个extended型强制转换为integer型
━━━━━━━━━━━━━━━━━━━━━━━━━━

function   Round(X:   Extended):   Int64;//四舍五入,测试可行
function   Trunc(X:   Extended):   Int64;//取整
function   Int(X:   Extended):   Extended;

round 四舍五入
trunc 去掉小数点后面的部分取整

━━━━━━━━━━━━━━━━━━━━━━━━━━
procedure   TForm1.BitBtn1Click(Sender:   TObject);
var
    a   :   extended;
    b   :   int64;
begin
      a   :=   2132123323211.005;
      b   :=   round(a);
      caption   :=   currtostr(b);
end;
不知道是不是你的意思？

━━━━━━━━━━━━━━━━━━━━━━━━━━
如果不做舍入，用Trunc()
procedure   TForm1.Button1Click(Sender:   TObject);
var   a:extended;
          b:integer;
begin
      a:=strtofloat(edit1.text);
      b:=trunc(a);
      edit2.TExt:=inttostr(b);
end;

转载于:https://www.cnblogs.com/linguoqiu/archive/2012/12/22/2829303.html

Delphi中如何将一个extended型等实数强制转换为integer型相关推荐

C语言中字符串数据转为整型数据并提取整型数据
方法一:利用库中的atoi函数,将字符类型转换为整型,则可提取出整型. #include<stdio.h> #include<string.h> int main() {cha ...
long到number转换 ts_js如何将纯数字字符串转换为long型
1.js如何将纯数字字符串转换为long型? js 中 int的存储位数?最大十进制数表示是多少? 整数(不使用小数点或指数计数法)最多为 15 位. 小数的最大位数是 17,但是浮点运算并不总是 1 ...
C# ASP.NET 转换为int型的方法很实用
很多新手在搞c#或者.net开发的时候总会碰到一些小问题,如何知道字符能不能为int型在这里我写了一个小的函数仅供大家参考: /// <summary>/// 判断是不是int型/// ...
c语言int转换成float,int怎么转化为float 将 int型变量n转换成float型变量的方法是...
请问C语言中如何将int转换为float 将 int型变量n转换成float型变量的方法是 A float n B (float )n C float( n) D( float) ( n)不懂小编的人 ...
【C#】转换为整型(int)及int取整
目录一.转换为整型(int) 1.int.Parse() 方法和int.TryParse() 2.Convert.ToInt32() 方法 3.强制转换(int) 二.三种int取整方法一.转换为 ...
delphi中的单元
Object Passal的程序结构很特殊,与其它语言如C++,Object Windows等结构都不同.一个Delphi程序由多个称为单元的源代码模块组成.使用单元可以把一个大型程序分成多个逻辑相关 ...
Delphi中的基础数据类型
参考http://www.cnblogs.com/del/archive/2007/12/04/982167.html 在学习之初,在这么多的数据类型中,最好记住这五种标准数据类型(整型.实型.字符型 ...
delphi中常见错误提示说明总结
Delphi的中文错误提示 ';' not allowed before 'ELSE' ElSE前不允许有";" '' clause not allowed in OLE a ...
教程-Delphi中Spcomm使用属性及用法详解
Delphi中Spcomm使用属性及用法详解 Delphi是一种具有功能强大.简便易用和代码执行速度快等优点的可视化快速应用开发工具,它在构架企业信息系统方面发挥着越来越重要的作用,许多程序员愿意选 ...

Delphi中如何将一个extended型等实数强制转换为integer型

Delphi中如何将一个extended型等实数强制转换为integer型相关推荐

最新文章

热门文章