|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/7/2 9:04:25 |
标题: |
|
加入我的收藏 |
楼主: |
各位早上好! Edit1中输入‘3’,Edit2中输入‘7', procedure TForm1.Button1Click(Sender: TObject); begin Edit3.text:=Edit1.text/Edit2.text; end; 我想让Edit3.text:=0.4; 但是总出错。 这条语句该怎么写?谢谢!
----------------------------------------------
李平 |
作者: |
|
2003/7/2 9:08:30 |
1楼: |
晕,楼主你连基本的数据类型都不分啊:) 应该这样写: procedure TForm1.Button1Click(Sender: TObject); begin Edit3.text:=floattostr(strtofloat(Edit1.text)/strtofloat(Edit2.text)) end;
----------------------------------------------
==DELPHI是我的生命==
|
作者: |
|
2003/7/2 9:22:34 |
2楼: |
狼啸九天: 谢谢! 但是如何限制Edit3.text的值只有两位小数?
----------------------------------------------
李平
|
作者: |
|
2003/7/2 9:38:44 |
3楼: |
Edit3.text:=FormatFloat('0.00',floattostr(strtofloat(Edit1.text)/strtofloat(Edit2.text)))
----------------------------------------------
-
|
作者: |
|
2003/7/2 9:49:36 |
4楼: |
善解人衣: 你好!谢谢!但是有错误. [Error] : Incompatible types: 'Extended' and 'String'
----------------------------------------------
李平
|
作者: |
|
2003/7/2 9:59:01 |
5楼: |
Edit3.text:=floattostr(FormatFloat('0.00',strtofloat(Edit1.text)/strtofloat(Edit2.text)))
----------------------------------------------
-
|
作者: |
|
2003/7/2 10:08:08 |
6楼: |
还可以这样: Edit3.text:=format('%.2f',[strtofloat(Edit1.text)/strtofloat(Edit2.text)]);
----------------------------------------------
==DELPHI是我的生命==
|
作者: |
|
2003/7/2 10:17:45 |
7楼: |
非常感谢各位的大力帮助, 问题解决了。谢谢!
----------------------------------------------
李平
|
作者: |
|
2003/7/2 15:03:21 |
8楼: |
使用MaskEdit1控件吧
----------------------------------------------
-
|
|