如何实现通过按钮控制TEdit数值的加减功能？

基础实现步骤（假设使用支持Value属性的数值型TEdit控件） #

1. 设置初始值
   在窗体的OnCreate事件中添加代码，初始化TEdit的数值为0：

   procedure TForm1.FormCreate(Sender: TObject);
   begin
     Edit1.Value := 0;
   end;
   

2. 加号按钮逻辑
   给“+”按钮（比如命名为btnAdd）添加OnClick事件，实现数值递增：

   procedure TForm1.btnAddClick(Sender: TObject);
   begin
     Edit1.Value := Edit1.Value + 1;
   end;
   

3. 减号按钮逻辑
   给“-”按钮（比如命名为btnSubtract）添加OnClick事件，实现数值递减：

   procedure TForm1.btnSubtractClick(Sender: TObject);
   begin
     Edit1.Value := Edit1.Value - 1;
   end;
   

兼容普通TEdit控件（无Value属性） #

如果使用的是标准TEdit（仅支持文本输入），需要手动处理字符串与数值的转换，避免输入非数字导致错误：

1. 设置初始值

   procedure TForm1.FormCreate(Sender: TObject);
   begin
     Edit1.Text := '0';
   end;
   

2. 加号按钮逻辑

   procedure TForm1.btnAddClick(Sender: TObject);
   var
     CurrentVal: Integer;
   begin
     // 尝试将文本转为整数，失败则默认设为0
     if not TryStrToInt(Edit1.Text, CurrentVal) then
       CurrentVal := 0;
     CurrentVal := CurrentVal + 1;
     Edit1.Text := IntToStr(CurrentVal);
   end;
   

3. 减号按钮逻辑

   procedure TForm1.btnSubtractClick(Sender: TObject);
   var
     CurrentVal: Integer;
   begin
     if not TryStrToInt(Edit1.Text, CurrentVal) then
       CurrentVal := 0;
     // 可选：防止数值变为负数，根据需求调整
     if CurrentVal > 0 then
       CurrentVal := CurrentVal - 1;
     Edit1.Text := IntToStr(CurrentVal);
   end;
   

内容的提问来源于stack exchange，提问作者Bapple