Question

Delphi 中怎样写选择语句

Answer 1

这句报错：
ADOQuery1.SQL.text:='select 书名 from 图书 where 书名='''+Edit1.Text+''''
错误如下：illegal character in input file:':'($A#BA)
怎么改？
代码如下：
var
Form7: TForm7
i:integer
implementatio
uses Unit19, Unit2
{$R *.dfm}
rocedure TForm7.RadioButton1Click(Sender: TObject)
egi
i:=1
end
rocedure TForm7.RadioButton2Click(Sender: TObject)
egi
i:=2
end
rocedure TForm7.RadioButton3Click(Sender: TObject)
egi
i:=3
end
rocedure TForm7.RadioButton4Click(Sender: TObject)
egi
i:=4
end
rocedure TForm7.SpeedButton1Click(Sender: TObject)
//locOp:TLocateOptio
egi
case i of
1:
egi
Adoquery1.Close
Adoquery1.SQL.Clear
ADOQuery1.SQL.text:='select 书名 from 图书 where 书名='''+Edit1.Text+''''
Adoquery1.Ope
end
2：
egi
Adoquery1.Close
Adoquery1.SQL.CLear
Adoquery1.SQL.Text:='select * from 图书 where 作者='''+Edit1.Text+''''
Adoquery1.Ope
end
3:
egi
Adoquery1.Close
Adoquery1.SQL.CLear
Adoquery1.SQL.Text:='select * from 图书 where 关键字='''+Edit1.Text+''''
Adoquery1.Ope
end
4:
egi
Adoquery1.Close
Adoquery1.SQL.CLear
Adoquery1.SQL.Text:='select * from 图书 where 索取号='''+Edit1.Text+''''
Adoquery1.Ope
end
end
end

Answer 2

if else 判断，或者是 case 判断，然后进行选择。