判断角色

 1 function GetUserrole: Boolean;
 2   var ATeams: TStrings;
 3       i:Integer;
 4   begin
 5     Result:=false;
 6     i:=0;
 7     ATeams:=TStringList.Create;
 8     try
 9       ATeams.Text:=ListLoginUserRoles;
       if ATeams.Count>0 then
         for i:=0 to ATeams.Count-1 do begin
           if StrToIntDef(ATeams.Names[i], 0)=43 then begin   //StrToIntDef判断一个文本框里输入的字符串能不能转换为integer类型,如果能，则返回转换后的整型数据，如果不能，则返回整数0，
             Result:=true;
             break;
           end;
         end;
     finally
       ATeams.Free;
     end;
   end;