随笔 - 2146  文章 - 97 评论 - 11761 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 万一 阅读(...) 评论(...) 编辑 收藏