| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/13 23:14:34 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我做了一个很简单的数据处理问题！ 代码如下！ procedure TForm1.Edit1Change(Sender: TObject); var Trr,Trk:string; Tr,Ty:string; begin if(Edit1.Text=')or(Edit2.Text=')or(Edit3.Text=')then begin Edit4.Text:='; exit; end else if(strtofloat(Edit1.Text)>=1000)or(strtofloat(Edit2.Text)>=1000)or(strtofloat(Edit3.Text)>=1000)then begin Edit1.Text:='0'; Edit2.Text:='0'; Edit3.Text:='0'; exit; end else Trk:=floattostr(Strtofloat(Edit1.Text)*Strtofloat(Edit2.Text)*Strtofloat(Edit3.Text)); if strtofloat(Trk)=0 then begin Edit4.Text:='; exit; end else begin Trr:=Floattostr(Strtofloat(Edit1.Text)*Strtofloat(Edit2.Text)*Strtofloat(Edit3.Text)/1000000*35.32); showmessage(trr); Ty:=copy(Trr,ansipos('.',Trr)+4,1); showmessage(ty); if Strtoint(Ty)>=5 then begin Tr:=Floattostr(strtofloat(Trr)+0.001); showmessage(Tr); Tr:=copy(Tr,1,ansipos('.',Tr)+3); end else Tr:=copy(Trr,1,ansipos('.',Trr)+3); showmessage(Tr); Edit4.Text:=Tr; end; end;
~~~~~我爱delphi就像爱我的她~~~~~ |
|||||
| 作者： |
|
2004/3/13 23:17:21 | ||||
| 1楼： | 当输入里有两个50的时候就会出现这个情况：
~~~~~我爱delphi就像爱我的她~~~~~ |
|||||
| 作者： |
|
2004/3/13 23:20:07 | ||||
| 2楼： | 当然上面的三个Edit的Edit?Change是一样的
~~~~~我爱delphi就像爱我的她~~~~~ |
|||||
| 作者： |
|
2004/3/13 23:27:33 | ||||
| 3楼： | 晕 论坛里有那么多限制输入的方法！ 或者用maskedit不就结了吗！ ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/3/13 23:33:19 | ||||
| 4楼： | 关键是我输入别的都没有问题！就是输入50，50，X就出问题！我不想换这个呀！小弟不才！请教！！！ ---------------------------------------------- ~~~~~我爱delphi就像爱我的她~~~~~ |
|||||
| 作者： |
|
2004/3/14 10:20:22 | ||||
| 5楼： | 嘿嘿~~自己的程序里有bug 已经没有了！ showmessage(trr); Ty:=copy(Trr,ansipos('.',Trr)+4,1); showmessage(ty);//在这里***** Ty可能取的是'， if Strtoint(Ty)>=5 then begin ---------------------------------------------- ~~~~~我爱delphi就像爱我的她~~~~~ |
|||||
| 信息 |
| 登陆以后才能回复 |
