怎么写，EDIT1框和EDIT2框里的数据相乘，并显示在EDIT3中

Question

怎么写，EDIT1框和EDIT2框里的数据相乘，并显示在EDIT3中

Answer 1

var
  Form1: TForm1;
  function myadd(intadd:integer;intadded:integer):integer;implementation{$R *.DFM}function myadd(intadd:integer;intadded:integer):integer;
begin
  myadd:=intadd+intadded;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  intadd,intadded,intresult:integer;
begin
  intadd:=strtoint(edtadd.text);
  intadded:=strtoint(edtadded.text);
  intresult:=myadd(intadd,intadded);
  edtresult.Text:=inttostr(intresult);
  
end;end.

Answer 2

edit3.text:=formatfloat('0.00',strtofloat(edit1.text)*strtofloat(edit2.text);

Answer 3

edit3.text:=formatfloat('0.00',strtofloat(edit1.text)*strtofloat(edit2.text));忘了加括号。
也可以
edit3.text:=floattostr('0.00',strtofloat(edit1.text)*strtofloat(edit2.text));

Answer 4

不好意思，上面是加法。
乘法如下：function myresult(intmult:integer;intmultiply:integer):integer;
begin
  myresult:=intmult*intmultiply;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  intmult,intmultiply,intresult:integer;
begin
  intmult:=strtoint(Edit1.text);
  intmultiply:=strtoint(Edit2.text);
  intresult:=myresult(intmult,intmultiply);
  Edit3.Text:=inttostr(intresult);
  showmessage('结果是：'+inttostr(intresult));
end;

Answer 5

不对啊
这是我的代码
procedure TForm1.Button1Click(Sender: TObject);
var
Date1,Date2:TDateTime;
i:integer;
a,b: string;
begin Date1:= DateTimePicker1.date;
 Date2:= DateTimePicker2.date;i:=MonthsBetween(Date1,Date2);
edit3.text:=floattostr('0.00',strtofloat(edit1.text)*strtofloat(edit2.text));
end;end.

Answer 6

edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));

Answer 7

edit3.text:=floattostr('0.00',strtofloat(edit1.text)*strtofloat(edit2.text));格式如下：
edit3.text:=floattostr(strtofloat(edit1.text)*strtofloat(edit2.text));
或者
edit3.text:=formatfloat('0.00',strtofloat(edit1.text)*strtofloat(edit2.text));

Answer 8

edit3.text:=inttostr(strtoint(edit1.text)*strtoint(edit2.text))

Answer 9

用floattostr就不能给数字加格式了。也就不用带'0.00'了。

Answer 10

用floattostr可以计算小数,用inttostr只能计算整数。

Answer 11

那就用strtofloat floattostr吧。
用formatfloat可以格式化输入字符串。

Answer 12

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));