GroupModel.pas 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. unit GroupModel;
  2. interface
  3. type
  4. TRealICQTeamValidateType = ( tvAllCanJoinTeam = 0,
  5. tvNeedValidate = 1,
  6. tvAllCannotJoinTeam = 2,
  7. tvAllCannotJoinTeamNew = 4);
  8. TRealICQTeam = class
  9. private
  10. FTeamID: string;
  11. FTeamCaption: string;
  12. FTeamCreater: string;
  13. FTeamCallBoard: string;
  14. FTeamIntro: string;
  15. FTeamValidate: TRealICQTeamValidateType;
  16. FTeamManagers: string;
  17. FTeamMembers: string;
  18. FIsTempTeam: Boolean;
  19. public
  20. property TeamID: string read FTeamID write FTeamID;
  21. property TeamCaption: string read FTeamCaption write FTeamCaption;
  22. property TeamCreater: string read FTeamCreater write FTeamCreater;
  23. property TeamCallBoard: string read FTeamCallBoard write FTeamCallBoard;
  24. property TeamIntro: string read FTeamIntro write FTeamIntro;
  25. property TeamValidate: TRealICQTeamValidateType read FTeamValidate write FTeamValidate;
  26. property TeamManagers: string read FTeamManagers write FTeamManagers;
  27. property TeamMembers: string read FTeamMembers write FTeamMembers;
  28. property IsTempTeam: Boolean read FIsTempTeam write FIsTempTeam;
  29. end;
  30. TSearchTeamResultRecord = class
  31. private
  32. FTeamID: String;
  33. FTeamCaption: String;
  34. FTeamIntro: String;
  35. FTeamCreater: String;
  36. public
  37. property TeamID: String read FTeamID write FTeamID;
  38. property TeamCaption: String read FTeamCaption write FTeamCaption;
  39. property TeamIntro: String read FTeamIntro write FTeamIntro;
  40. property TeamCreater: String read FTeamCreater write FTeamCreater;
  41. end;
  42. implementation
  43. end.