Delphi：加法和减法

Question

我想在 Delphi 表单上添加和减去数字。我有两个按钮，一个标记为“+”，一个标记为“-”。

如果单击“+”按钮，显然，它需要将一个数字添加到编辑框中显示的预先存在的值中。每点击一次“+”，编辑框中的数字就需要加1。如果点击“-”，编辑框中的值需要减1。该值不能低于预先存在的值，在本例中为 35。

所以我的问题是，Delphi 中的编码如何查找这个，以及如何声明变量？

Answer 1

在“-”button.click 事件上添加此代码

 procedure TForm1.Button1Click(Sender: TObject);
 var
  //declare all your variables here
  result : integer;
 begin
  result:=StrToInt(Edit1.text);
  if result=35 then
    exit
  else
    Edit1.text:=IntToStr(result-1);

 end;  

在“+”buttonclick 上添加此代码

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   Edit1.text:=IntToStr(StrToInt(Edit1.Caption)+1);

 end;

Answer 2

将以下代码写入“+”按钮，“-”按钮并没有真正的不同：

Edit1.Caption := IntToStr(StrToInt(Edit1.Caption)+1);

Answer 3

procedure TForm1.btnIncrementClick(Sender: TObject);
var
  j: integer;
begin
  j := StrToInt(edit1.Text);
  inc(j);
  edit1.Text := IntToStr(j);
end;

procedure TForm1.btnDecrementClick(Sender: TObject);
var
  j: integer;
begin
  j := StrToInt(edit1.text);
  if J > 35 then
  begin
    dec(j);
    Edit1.Text := IntToStr(j);
  end;
end;