随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

此页已更新到: 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;
posted on 2007-12-28 14:57  万一  阅读(...)  评论(...编辑  收藏