去掉email检查 群组成员列表显示用户单位（company）

Signed-off-by: lqq <lqq@wswin.cn>

Client/Condition/LimitCondition.pas

@@ -146,13 +146,13 @@ begin
       Result := False;
     end;
 
-    Reg.RegEx := '^(\w-*\.*)+@(\w-?)+(\.\w{2,})+';
-    Reg.Subject := AUser.Email;
-    if (AUser.Email = '') or (not Reg.Match) then
-    begin
-      StrCheckResult := StrCheckResult + '电子邮箱：没有填写或是无效的电子邮箱地址' + #13;
-      Result := False;
-    end;
+//    Reg.RegEx := '^(\w-*\.*)+@(\w-?)+(\.\w{2,})+';
+//    Reg.Subject := AUser.Email;
+//    if (AUser.Email = '') or (not Reg.Match) then
+//    begin
+//      StrCheckResult := StrCheckResult + '电子邮箱：没有填写或是无效的电子邮箱地址' + #13;
+//      Result := False;
+//    end;
   
     if not Result then
     begin

Client/Services/UsersService.pas

@@ -883,7 +883,7 @@ begin
   AListItem.EmailHint := Trim(AUser.Email) + '(双击发送邮件)';
   AListItem.SMSHint := AListItem.MobilePhoneHint;
   AListItem.CameraHint := '双击发送视频对话邀请';
-
+  AListItem.Company := AUser.Company;
   AListItem.HasTelephone := AListItem.HasTelephone and AListItem.ListView.ShowTelButton;
   AListItem.HasMobilePhone := AListItem.HasMobilePhone and AListItem.ListView.ShowMobileButton;
   AListItem.HasEmail := AListItem.HasEmail and AListItem.ListView.ShowEmailButton;