菜鸟提问:帮我看看这个需求!!

Question

界面上有Edit1,Edit2,Button1
需要在Edit1中输入22后,点击Button1,Edit2显示22;重新输入33,再点击Button1,Edit2显示为55
应该不难,但我才学习,需要示例代码,谢谢!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit2.Text <> '' then
  begin
    Edit2.Text := IntTOStr(StrToInt(Edit1.Text)+ StrToInt(Edit2.Text));
  end
  else
    Edit2.Text := Edit1.Text;    Edit1.Clear;
end;

Answer 2

Edit2.Text := IntToStr(StrToIntDef(Edit1.Text,0)+ StrToIntDef(Edit2.Text,0));