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

举例:
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  万一  阅读(...)  评论(...编辑  收藏