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;

System 单元下的公用函数目录

---