德尔福：加法和减法

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;  

点击“+”按钮点击添加此

 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;