delphi的加法如何让写。

来源：百度知道 编辑：UC知道 时间：2024/06/23 14:14:57
请问在delphi中怎么做到在edit1.text中写入一个数，在edit2.text中写入一个数，当按按钮后，edit3.text中出现edit=edit2的结果

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

var
i,j,k:integer;
begin
i:=StrToInt(trim(Edit1.Text));// trim是去掉空格
j:=StrToInt(trim(Edit2.Text));// StrToInt是 string型转integer型
k:=i+j; //计算 如果你是累加的话，你的问题表达的不太清楚

Edit3.Text:=IntToStr(k)

end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint(edit1.text); //类型转换函数
b:=strtoint(edit2.text);
edit3.text:=inttostr(a+b);
end;