学步园

举例:

---

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 单元下的公用函数目录

---