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;
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('无权限查询') ;