Question

易语言的 “到文本（）”“ 到数值（）“ 在delphi中应该用什么函数代替

易语言的代码中的一句 编辑框5.内容 ＝ 到文本 ((到数值 (编辑框1.内容) ÷ 100 ＋ 到数值 (到数值 (编辑框2.内容) ÷ 100) ＋ 0.08) 请问这句话 转换成DELPHI 代码应该是怎么样的

Answer 1

比方说，StrToInt("123")=整数123
IntToStr(123)=字符串"123"

Human.Age := StrToInt(edtAge.Text);//由于edtAge.text是文本内容，需要把它转换成具体数字，

mmDisplay.Lines.Add('我是'+Human.GetName+',今年'+IntToStr (Human.Age)+'岁。'); //由于输出要输出字符串，所以需要把整数转换成字符串然后把整个字符串连接起来

追问

label1.caption：＝inttostr (strtoint (edit1.text) / 100) + inttostr(strtoint(edit2.text) / 100) ＋ 0.08 * inttostr(strtoint (edit2.text) / 100) + inttostr(strtoint(edit3.text) / 100)＋0.04
请问我这个怎么不对呢？ 我想做的就是 （（长/100）+（宽/100）+0.08）*（（宽/100）+（高/100）+0.04）*编辑框的内容 除以100 是想把厘米转换为米 我要算出来的是小数 请问怎么解决？数据类型要小数的

追答

你写的语句中有
0.08 * inttostr(strtoint (edit2.text) / 100)
一个数字乘以一个str是什么意思？？？

要想有小数，可以使用 strtofloat 和 floattostr这两个。

追问

其实公式是这样的 （（长/100）+（宽/100）+0.08）*（（宽/100）+（高/100）+0.04）*平方单价 长为编辑框1.内容 宽为编辑框2.内容 高为编辑框3.内容 请问 这样该怎么写啊 帮我写一个呗 谢谢了 我会加分的

追答

label1.caption：＝floattostr（(strtofloat (edit1.text) / 100 + strtofloat(edit2.text) / 100 ＋ 0.08） * (strtofloat (edit2.text) / 100 + strtofloat(edit3.text) / 100＋0.04）*平方单价）

平方单价是什么变量，你自己替换吧。

Answer 2

编辑框5.text ＝ inttostr ((strtoint (编辑框1.text) / 100 + inttostr(strtoint(编辑框2.text) / 100) ＋ 0.08)

追问

label6.caption：=((strtoint(edit1.text)div 100)+(strtoint(edit2.text) div 100)+0.08)*((strtoint(edit2.text)div 100)+(strtoint(edit3.text) div 100)+0.04) 帮我看下这个有什么错误好吗？ 为什么不能运行呢？

Answer 3

edit5.text := inttostr(strtoint(edit1.text) div 100 +strtoint(edit2.text) div 100 +0.08)

追问

您好 麻烦你下帮我转换完一句 OK的话我会继续加分的 我的目的是 将编辑框1的内容/100+编辑框2的内容/100+0.08 然后乘上 编辑框2的内容/100+编辑框3的内容/100+0.04 相乘的结果再乘 编辑框4的内容 明白我的意思吗？ 易语言我能写 但是DELPHI 写不了 其实程序的大致意思是： 标签的标贴=（（（长/100）+（宽/100）+0.08）*（（宽/100）+（高/100）+0.04））*编辑框4.的内容 易语言代码如图片

追答

label6.caption := floattostr(( strtofloat(edit1.text) / 100 + strtofloat(edit2.text) / 100 +0.08 ) * ( strtofloat(edit2.text) / 100 + strtofloat(edit3.text) / 100 +0.08 ) * strtofloat(edit4.text));

这个就没问题了 我自己做了小程序试了 OK了 。 你知道你为什么错吗 ，是类型不统一越界造成的。 如果要控制输入的 小数点的个数，再在前面加 Fomat()函数。