| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/9/29 19:17:33 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我好急啊，现在就要用了，麻烦各位了。（在线等） ---------------------------------------------- songchan |
|||||
| 作者： |
|
2003/9/29 19:34:31 | ||||
| 1楼： | 你看看delphi的maths.pas单元，应该都有现成的函数的。 ---------------------------------------------- 维护世界和平，共创美好盒子。 |
|||||
| 作者： |
|
2003/9/29 19:38:06 | ||||
| 2楼： | 这些还是去看pascal的书好了，都通用的 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/29 20:43:00 | ||||
| 3楼： | zizii (孜孜)你的QQ号码是什么啊，我好想拜你为师啊！ 我还有一个问题，怎么把real的数转换为str的呢？ ---------------------------------------------- songchan |
|||||
| 作者： |
|
2003/9/29 20:45:39 | ||||
| 4楼： | 看看 FloatToStr() 有没有这个函数，我不太记得了。 从今天开始我休假啦，一切等我回来再说吧：~） ---------------------------------------------- 维护世界和平，共创美好盒子。 |
|||||
| 作者： |
|
2003/9/29 20:53:06 | ||||
| 5楼： | 你什么时候回来啊。给我QQ我先加你怎么样？ ---------------------------------------------- songchan |
|||||
| 作者： |
|
2003/9/30 7:47:32 | ||||
| 6楼： | 4楼的函数正确 ----------------------------------------------  
|
|||||
| 作者： |
|
2003/9/30 8:46:05 | ||||
| 7楼： | 上传字符处理函数给你！
|
|||||
| 作者： |
|
2003/9/30 15:19:04 | ||||
| 8楼： | 谢谢，经过一番奋斗我终于做出来了，谢谢各位帮忙！！
songchan |
|||||
| 作者： |
|
2003/9/30 15:21:18 | ||||
| 9楼： | 代码： procedure TForm1.SpeedButton2Click(Sender: TObject); var i:double; x:double; y:double; m:double; n:double; begin i:=strtofloat(edit1.text); if edit1.Text=' then showmessage('请输入操作数') else if radiobutton1.Checked then begin x:=sin(i); edit2.text:=floattostr(x); end else if radiobutton2.Checked then begin y:=cos(i); edit2.text:=floattostr(y); end else if radiobutton3.Checked then begin edit2.text:=floattostr(i*i); end else if radiobutton4.Checked then begin if i<=0 then showmessage('请输入正数') else m:=sqrt(i); edit2.Text:=floattostr(m); end else if radiobutton5.Checked then begin n:=Exp(i); edit2.Text:=floattostr(n); end; end; ---------------------------------------------- songchan |
|||||
| 作者： |
|
2003/9/30 16:44:55 | ||||
| 10楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
