delphi System 中的数学函数


本文整理自网络,侵删。

 //绝对值: Abs
var
d: Real;
v: Variant;
begin
d := Abs(-1.2);
ShowMessage(FloatToStr(d)); {1.2}

v := '-100';
ShowMessage(v); {-100; v 是变体类型无需转换}

v := Abs(v);
ShowMessage(v); {100; 如果变量的确是个数字, 变体类型也是可以取绝对值}
end;
--------------------------------------------------------------------------------

//返回整数: Trunc、Round、Int
var
i: Integer;
d: Real;
begin
i := Trunc(1234.5678); {截断}
ShowMessage(IntToStr(i)); {1234}

i := Round(1234.5678); {四舍五入}
ShowMessage(IntToStr(i)); {1235}

{Int 和 Trunc 都是向 0 方向舍入, 但 Int 返回的不是整数类型}
d := Int(-1234.5678);
ShowMessage(FloatToStr(d)); {-1234}
end;
--------------------------------------------------------------------------------

//平方: Sqr
var
d: Real;
begin
d := Sqr(6);
ShowMessage(FloatToStr(d)); {36}
end;
--------------------------------------------------------------------------------

//平方根: Sqrt
var
d: Real;
begin
d := Sqrt(81);
ShowMessage(FloatToStr(d)); {9}
end;
--------------------------------------------------------------------------------

//判断一个整数是不是奇数: Odd
var
i: Integer;
b: Boolean;
begin
i := 11;
b := Odd(i); {是奇数返回真}
ShowMessage(BoolToStr(b)); {True}

i := 12;
b := Odd(i);
ShowMessage(BoolToStr(b)); {False}
end;

相关阅读 >>

Delphi 多线程 开始、暂停、继续、停止

Delphi 调用js脚本

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi 建立快捷方式

Delphi窗体自适应分辨率

Delphi中启用禁止cd驱动器自动运行播放

Delphi 动态创建窗体

Delphi xe5 for android ttabcontrol 控件

Delphi在pagecontrol1上面的分页动态创建edit组件

Delphi 在指定图片上绘制透明文字

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...