if Treeview1.Selected.text:='' then //这条语句错到那里呀!!
begin
showmessage('请选择用户!');
exit;
end
else
begin
ExecSQL;
showmessage('权限设置成功!');
end;
end;
begin
showmessage('请选择用户!');
exit;
end
else
begin
ExecSQL;
showmessage('权限设置成功!');
end;
end;
===================
这里应该是“等号”而不是“赋值”操作
delphi里的用“=”表示“等号”,用“:=”表示“赋值”