Delphi 2010中ComboBox递增0.1添加1-5数值文本报错求助

Hey there! 作为玩了多年Delphi的老玩家，我来帮你解决这个首次开发遇到的问题～ 你要实现的是给ComboBox添加1.0到5.0、步长0.1的数值文本，报错大概率是浮点数精度问题或者循环逻辑/类型转换错误，下面给你拆解原因和正确的实现方式：

常见错误原因 #

• 用整数类型的循环变量直接计算，导致类型不匹配报错
• 浮点数累加时的精度误差，导致循环终止条件失效（比如本该到5.0，结果变成4.9999999999，循环提前结束或者无限循环）
• 直接用FloatToStr转换数值，出现不期望的小数位数（比如1.1变成1.0999999999），甚至科学计数法

正确实现代码（两种稳妥方式） #

方式一：用整数计数避免浮点数精度问题 #

这种方法完全避开浮点数累加的精度坑，推荐新手使用：

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  CurrentValue: Double;
begin
  ComboBox1.Clear; // 先清空控件，避免重复添加内容
  // 从0到40，刚好对应1.0到5.0（1.0 + 40*0.1 = 5.0）
  for i := 0 to 40 do
  begin
    CurrentValue := 1.0 + i * 0.1;
    // 用Format强制保留1位小数，确保显示格式正确
    ComboBox1.Items.Add(Format('%.1f', [CurrentValue]));
  end;
end;

方式二：浮点数循环（需注意精度处理） #

如果想用直观的浮点数累加，记得用Format控制显示格式，并且循环条件可以稍微放宽一点，避免因为精度问题漏掉5.0：

procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentValue: Double;
begin
  ComboBox1.Clear;
  CurrentValue := 1.0;
  // 用<=5.01代替<=5.0，避免浮点数精度导致5.0没被添加
  while CurrentValue <= 5.01 do
  begin
    ComboBox1.Items.Add(Format('%.1f', [CurrentValue]));
    CurrentValue := CurrentValue + 0.1;
  end;
end;

关键注意点 #

• 确保你的代码里引用了SysUtils单元（Delphi 2010默认项目会包含，但如果没有的话，要在Uses部分加上），不然Format函数会报错
• 不要直接用FloatToStr(CurrentValue)，因为浮点数精度问题，可能会显示1.0999999999而不是1.1，用Format('%.1f', ...)可以完美解决这个问题

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