举例:
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 on 2008-03-30 23:12  万一  阅读(4793)  评论(0编辑  收藏  举报