델파이 : 더하기 및 빼기

Question

델파이 폼에 숫자를 더하고 빼기를 원합니다. 두 개의 버튼이 있습니다. 하나는 "+"로 표시하고 다른 하나는 "-"로 표시합니다.

"+"버튼을 클릭하면 분명히 편집 상자에 표시된 기존 값에 숫자를 추가해야합니다. "+"를 클릭 할 때마다 입력란의 숫자가 1 씩 증가해야합니다. "-"를 클릭하면 편집 상자의 값에서 1을 뺍니다. 이 값은 기존 값인 35보다 낮을 수 없습니다.

제 질문은 델파이의 코딩이 어떻게 보이는지, 변수를 어떻게 선언할까요? 당신의 "+"버튼에 다음 코드

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이가 homew가이

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;