举例: var d: Real; begin d := Sqr(6); ShowMessage(FloatToStr(d)); {36} end; var d: Real; begin d := Sqrt(81); ShowMessage(FloatToStr(d)); {9} end;