2008 年 3月 30 日随笔档案 - 万一

2008年3月30日

摘要：举例: 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; ... 阅读全文

posted @ 2008-03-30 23:13 万一阅读(4314) 评论(2) 推荐(0)

System.Sqr、System.Sqrt - 平方与平方根

摘要：举例: var d: Real; begin d := Sqr(6); ShowMessage(FloatToStr(d)); {36} end; var d: Real; begin d := Sqrt(81); ShowMessage(FloatToStr(d)); {9} end; System 单元下的公用函数目录阅读全文

posted @ 2008-03-30 23:12 万一阅读(4826) 评论(0) 推荐(0)

System.Trunc、System.Round、System.Int - 返回整数部分

摘要：举例:var i: Integer; d: Real;begin i := Trunc(1234.5678); {截取整数} ShowMessage(IntToStr(i)); {1234} i := Trunc(-1234.5678); ShowMessage(IntTo... 阅读全文

posted @ 2008-03-30 23:09 万一阅读(3155) 评论(2) 推荐(0)

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); ... 阅读全文

posted @ 2008-03-30 22:55 万一阅读(3738) 评论(0) 推荐(0)