delphi - 如何简化多次设置变量？

Question

我想编写一个使用ComboBox的内容过滤日期的SQL查询，在后者中，我希望以字母表示月份，但是我必须在查询中使用数字，因此我使用了以下代码：

procedure TAdh_Filter.RadioButton3Click(Sender: TObject);

var Param : integer;

begin
  if ComboBox1.Text = 'January' then begin Param := 1; end
  else if ComboBox1.Text = 'February' then begin Param := 2; end
  else if ComboBox1.Text = 'March' then begin Param := 3; end
  else if ComboBox1.Text = 'April' then begin Param := 4; end
  else if ComboBox1.Text = 'May' then begin Param := 5; end
  else if ComboBox1.Text = 'June' then begin Param := 6; end
  else if ComboBox1.Text = 'July' then begin Param := 7; end
  else if ComboBox1.Text = 'August' then begin Param := 8; end
  else if ComboBox1.Text = 'September' then begin Param := 9; end
  else if ComboBox1.Text = 'October' then begin Param := 10; end
  else if ComboBox1.Text = 'November' then begin Param := 11; end
  else if ComboBox1.Text = 'December' then begin Param := 12; end
end;

我想知道是否有可能简化这一过程。

Answer 1

您应该使用csDropDownList样式的组合框。这意味着只能选择添加到组合的值。在这种情况下，您可以从ItemIndex中读取所需的值。

procedure TAdh_Filter.RadioButton3Click(Sender: TObject);
var 
  Param : integer;
begin
  Param := ComboBox1.ItemIndex + 1;
end;

如果您使用任何其他样式的组合框，则用户将可以通过键入组合来输入无效的月份。听起来这并不是您所需要的。但是，如果出于某些原因您不想使用 csDropDownList，则需要将月份文本转换为索引，并包括有效性检查。如果确实需要这样做，则可以使用@bummi在此处提供的代码，与问题中的代码相比来简化事情： Convert month name to number in Delphi?



还要注意，您的代码存在无法设置 Param的风险。作为一般建议，我建议您始终在这样的 else语句中包含 if子句，并且 else子句会引发异常。这样，您至少会发现是否以某种方式无法识别月份。