Question

delphi edit1+edit2*3\edit4的代码怎么写啊

我一共画了5个edit是写一个计算门尺寸的程序第一个是门洞尺寸第二个是门框尺寸第三个是框的型号，第四个是门扇数量，第五个是等于门扇尺寸的，没有加、减、乘、除按扭的公式是edit1+edit2乘3除以edit4
我是一个delphi初学着，求高手帮忙，我在这里谢谢了

Answer 1

var n1,n2,n3,n4:Integer;
n5:float;
n1:=strtoint(edit1.Text);

n2:=strtoint(edit2.Text);

n3:=strtoint(edit3.Text);

n4:=strtoint(edit4.Text);

n5:=(n1+n2)*n3/n4;

edit5.Text:=currtostr(n5);

没有加异常验证，如果你前四个edit输入的不是数字就会出错，
如果前四个edit可能为小数，var 定义那里n1 --n4 定义为float
下面的strtoint改为 strtocurr 即可。

strtoint 是字符串转整型
strtocurr 是字符串转小数

同理 inttostr 是反过来转化。。
还不懂的就发信息问我咯。。

Answer 2

StrToFloat(edit1.text) + (StrToFloat(edit2.text) * 3 /StrToFloat(edit4.text))

Answer 3

function TForm1.MyCalc : Double;
var
n1, n2, n4 : Double;
begin
Result := 0.0;
if not TryStrToFloat( edit1.Text, n1 ) then
Exit;
if not TryStrToFloat( edit2.Text, n2 ) then
Exit;
if not TryStrToFloat( edit4.Text, n4 ) then
Exit;
if n4 = 0.0 then
Exit;
Result := n1 + n2 * 3 / n4;
end;