Delphi：加算と減算

Question

デルファイフォームで数値を加算したり減算したりしたい。私は2つのボタンを持っています.1つは "+"とマークし、もう1つは " - "とマークしました。

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

私の質問は、Delphiのコーディングでこれをどのように探すのですか。どのように変数を宣言しますか？あなたの "+" ボタンに次のコード

Answer 1

書き込み、 " - " しかし、実際に違いはありません。あなたに

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

Answer 2

" - " 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 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;