DELPHI IF ELSE 总有错误

来源:百度知道 编辑:UC知道 时间:2024/07/04 02:45:53
DELPHI IF ELSE 总有错误

if ComboBox1.Text = '冒险岛MF' then
if (frm_main.StatusBar1.Panels[1].Text = 'admin')
or (frm_main.StatusBar1.Panels[1].Text = 'fqj633')
or (frm_main.StatusBar1.Panels[1].Text = '毕喜彬')
or (frm_main.StatusBar1.Panels[1].Text = '李凌云')
or (frm_main.StatusBar1.Panels[1].Text = '于园园') then

with data1.ADO_rl do
begin
close;
sql.Clear;
sql.Add('select * from sv WHERE 游戏名 = ''冒险岛MF''');

open;
Active := true ;
end;
else showmessage('无权限查询') ;

这段总是 提示
[Error] Unit2.pas(260): ';' not allowed before 'ELSE'

if ComboBox1.Text = '冒险岛MF' then
if (frm_main.StatusBar1.Panels[1].Text = 'admin')
or (frm_main.StatusBar1.Panels[1].Text = 'fqj633')
or (frm_main.StatusBar1.Panels[1].Text = '毕喜彬')
or (frm_main.StatusBar1.Panels[1].Text = '李凌云')
or (frm_main.StatusBar1.Panels[1].Text = '于园园') then

with data1.ADO_rl do
begin
close;
sql.Clear;
sql.Add('select * from sv WHERE 游戏名 = ''冒险岛MF''');

open;
Active := true ;
end; //这个分号多余了~~~,改成:end
else showmessage('无权限查询') ;