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;  

нажмите на кнопку «+» и добавьте

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

 end;

Answer 2

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;

Answer 3

Запишите следующий код для вашей кнопки «+», хотя «-» на самом деле не отличается:

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