delphi - Delphi：足し算と引き算

Question

Delphiフォームで数値を加算および減算したい。2つのボタンがあります。1つは「+」とマークされ、もう1つは「-」とマークされています。

「+」ボタンをクリックすると、明らかに、編集ボックスに表示されている既存の値に数値を追加する必要があります。「+」をクリックするたびに、編集ボックスの数値を1ずつ増やす必要があります。「-」をクリックした場合は、編集ボックスの値から1を引く必要があります。この値は、既存の値（この場合は35）を下回ることはできません。

だから私の質問は、Delphiのコーディングはこれをどのように探すのか、そしてどのように変数を宣言するのかということです。

Answer 1

「-」ボタンをクリックします。イベントをクリックして、このコードを追加します

 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;