unit GroupModel; interface type TRealICQTeamValidateType = ( tvAllCanJoinTeam = 0, tvNeedValidate = 1, tvAllCannotJoinTeam = 2, tvAllCannotJoinTeamNew = 4); TRealICQTeam = class private FTeamID: string; FTeamCaption: string; FTeamCreater: string; FTeamCallBoard: string; FTeamIntro: string; FTeamValidate: TRealICQTeamValidateType; FTeamManagers: string; FTeamMembers: string; FIsTempTeam: Boolean; public property TeamID: string read FTeamID write FTeamID; property TeamCaption: string read FTeamCaption write FTeamCaption; property TeamCreater: string read FTeamCreater write FTeamCreater; property TeamCallBoard: string read FTeamCallBoard write FTeamCallBoard; property TeamIntro: string read FTeamIntro write FTeamIntro; property TeamValidate: TRealICQTeamValidateType read FTeamValidate write FTeamValidate; property TeamManagers: string read FTeamManagers write FTeamManagers; property TeamMembers: string read FTeamMembers write FTeamMembers; property IsTempTeam: Boolean read FIsTempTeam write FIsTempTeam; end; TSearchTeamResultRecord = class private FTeamID: String; FTeamCaption: String; FTeamIntro: String; FTeamCreater: String; public property TeamID: String read FTeamID write FTeamID; property TeamCaption: String read FTeamCaption write FTeamCaption; property TeamIntro: String read FTeamIntro write FTeamIntro; property TeamCreater: String read FTeamCreater write FTeamCreater; end; implementation end.