?

Log in

 
 
22 August 2008 @ 05:54 pm
ICQMDir  
Сегодня написал тип для возвращения ICQMDir Record из компонента в программу:

 TICQ_MDIR_RECORD = record
  ScreenName: string;
  ValidatedMail: string;
  PendingMail: string
  NickName, FirstName, LastName: string;
  Gender: integer;
  HomeStreet, HomeCity, HomeState, HomeZip, OriginStreet, OriginCity, OriginState, OriginZip: string;
  HomeCountry, OriginCountry: integer;
  Lang1, Lang2, Lang3, LocalLang: integer;
  Education: LongWord;
  HomePhone, WorkPhone, Cellular, HomeFax, WorkFax: string;
  WorkPosition, WorkCompanyName, WorkDepartament, WorkWebSite, WorkAddress, WorkCity, WorkState, WorkZip: string;
  WorkIndustry, WorkSubIndustry, WorkCountry: integer;
  WorkStartDate, WorkEndDate, Birthdate, LastUpdate: TDateTime;
  Interest1, Interest2, Interest3, Interest4: integer;
  InterestInfo1, InterestInfo2, InterestInfo3, InterestInfo4: integer;
  MatitalStatus, Children, SexualOrientation, Religion, Smoking, Height, HairColor, TimeZone: integer;
  OnlineStatus, AccountType, ServiceFlag, AllowPromotion, ExposureLevel, PrivacyLevel, LookingFor, BetaFlag: integer;
  PartnerIDs, SelfDescription: string;
  RequireAuthorization, HasPhoto: boolean;
 end;