Question

delphi 7 怎么用if else 语句

procedure TForm1.btn1Click(Sender: TObject);
begin

if edt1.Text<>'' then
begin
if edt1.Text then
begin
qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Add('select * from busstation where busid ='+ edt1.Text);
qry1.Open;
end ;
end
else
ShowMessage('您需要输入一个公交线路');
end;

以上是在edt1.text非空的条件下运行的 如何加一个if then 语句 给限制一下，来划定二edt1.text的取值范围，如20，22，23，24 四个数字之间取值。如果取值不是这四个数，就不调用数据库，显示对话框提示。
谢谢大家，会的帮个忙

Answer 1

最笨的方法是:
if (StrToInt(edt1.Text)=20) or (StrToInt(edt1.Text)=22) or (StrToInt(edt1.Text)=23) or (StrToInt(edt1.Text)=24) then

稍微聪明点的办法:
if (StrToInt(edt1.Text)>=20) and (StrToInt(edt1.Text)<=24) and (StrToInt(edt1.Text)!=21) then

最好的办法:
if StrToInt(edt1.Text) in [20,22,23,24] then