511函数的定义与使用(6) begin a:=strtofloat(edit 1. text) b: =strtofloat(edita.text C:=strtofloat(edit3 text) edit4.text: =floattostr(max(max(a, b), c) end: 在这个求三个数最大值过程中用到了两个标准函数 strtofloato和 floattostr0 个用户自定义函数maxO。其中 strtofloat()函数的作用是把字符串转化为实 数,而 floattostr(函数的作用与之相反,它的作用是把实数转化为字符串。 由于 Object Pascal是一种强类型语言,所以在编程中应当注意类型的转化。 为了使MaⅫO函数能够被正常调用,必须将MaxO的定义语句添加到按钮事件 声明语句之前。该函数定义如下 function max(x,y: real) real ∥该句也可以写为 function maxi( .real; y;rea)real; begin Inprise Dephibegin a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); c:=strtofloat(edit3.text); edit4.text:=floattostr(max(max(a,b),c)); end; 5.1.1 函数的定义与使用(6) 在这个求三个数最大值过程中用到了两个标准函数strtofloat()和floattostr()、 一个用户自定义函数max()。其中strtofloat()函数的作用是把字符串转化为实 数，而floattostr()函数的作用与之相反，它的作用是把实数转化为字符串。 由于Object Pascal是一种强类型语言，所以在编程中应当注意类型的转化。 为了使Max()函数能够被正常调用，必须将Ｍax()的定义语句添加到按钮事件 声明语句之前。该函数定义如下： function max(x,y:real):real; //该句也可以写为function max(x:real;y:real):real; begin