关于数据库二进制数据的问题。分不够可以再加！！！

Question

我想用一个二进制的字符串“10101”来表示某个用户对一些模块的使用权限。如：第一位表示人事模块可用，第二位表示管理模块可用。现在想请较的是：
当我也这个数据从库中取出来时，如何进行验证？
请求详细的代码？分不够可以再加！！

Answer 1

var
  Stream: TMemoryStream;
  p: PChar;
begin
  Stream.Read(p, 1);
  if p='1' then
    人事模块.Visible:=True
  else
    人事模块.Visible:=false;
end;