Delphi: Сложение и вычитание

Question

Я хочу добавить и вычитать числа в форме Delphi. У меня есть две кнопки, одна с надписью «+» и одна с надписью «-».

Если вы нажмете на кнопку «+», то, очевидно, ему нужно добавить число до уже существующего значения, отображаемого в окне редактирования. Количество в поле редактирования должно увеличиваться на 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;