Question

我希望将代码从1到5添加到组合框中，因为在delphi 2010中文本增加了0.1，但仍然会出现错误。我是一名自学成才的业余编码员，之前从未尝试过。这就是我试过的：

procedure TfrmWines.FillCombos;
var
  c : TStringList;
  i : Double;
begin
  c :=  TStringlist.Create;
  with c do
  begin
    sorted  :=  True;
    duplicates  := dupIgnore;
  end;
  try
    wdatamod.wines.first;
    wdatamod.wines.DisableControls;
    while not wdatamod.wines.eof do
    begin
      c.Add(wdatamod.wines.FieldByName('country').AsString);
      wdatamod.wines.Next;
    end;
  finally
     edCountryLst.Items :=  c;
     wdatamod.wines.EnableControls;
     c.Free;
  end;
  edRating.Items.Clear;
  for i := 1 to 5 do
  begin
    edRating.Items.add(FloatToStr(0.1 +i));
  end;
end;

我做错了什么？任何帮助我弄清楚的帮助将不胜感激。 Combobox字符串应为1,1.1,1.2等，最高为5.0。

Answer 1

感谢@Remy Lebeau，这是解决方案。

procedure TfrmWines.FormActivate(Sender: TObject);
var
  i : integer;
begin
  edRating.Items.Clear;
  for i := 10 to 50 do
  begin
    edRating.Items.add(FloatToStr(i /10));
  end;
end;

再次，谢谢!!!

使用For在组合框文本中将数字添加为字符串，增加0.1

1 个答案: