unit uBase.UserInfo; interface uses classes; type //用户信息 TUserInfo = class(TComponent) private FUserIP: string; FUserPort: Integer; FUserphone: string; FUserName: string; FPassword: string; FBigImgIndex: Integer; FSmallImgIndex: Integer; procedure ReadUserIP(Reader: TReader); procedure WriteUserIP(Writer: TWriter); procedure ReadUserPort(Reader: TReader); procedure WriteUserPort(Writer: TWriter); procedure ReadPhone(Reader: TReader); procedure WritePhone(Writer: TWriter); procedure ReadUserName(Reader: TReader); procedure WriteUserName(Writer: TWriter); procedure ReadPwd(Reader: TReader); procedure WritePwd(Writer: TWriter); procedure ReadBImgIndex(Reader: TReader); procedure WriteBImgIndex(Writer: TWriter); procedure ReadSImgIndex(Reader: TReader); procedure WriteSImgIndex(Writer: TWriter); protected procedure DefineProperties(Filer: TFiler); override; public constructor Create(AOwner: TComponent); override; procedure SetUserProperty(vUserIP: string; vUserPort: Integer; vUserphone: string; vUserName: string; vPwd: string; vBigImgIndex: Integer; vSmallImgIndex: Integer); property UserIP: string read FUserIP write FUserIP; property UserPort: Integer read FUserPort write FUserPort; property Userphone: string read FUserphone write FUserphone; property UserName: string read FUserName write FUserName; property BigImgIndex: Integer read FBigImgIndex write FBigImgIndex; property SmallImgIndex: Integer read FSmallImgIndex write FSmallImgIndex; end; { TUserInfo } implementation { TUserInfo } constructor TUserInfo.Create(AOwner: TComponent); begin end; procedure TUserInfo.DefineProperties(Filer: TFiler); begin inherited; Filer.DefineProperty('UserIP', ReadUserIP, WriteUserIP, True); Filer.DefineProperty('UserPort', ReadUserPort, WriteUserPort, True); Filer.DefineProperty('Phone', ReadPhone, WritePhone, True); Filer.DefineProperty('UserName', ReadUserName, WriteUserName, True); Filer.DefineProperty('Pwd', ReadPwd, WritePwd, True); Filer.DefineProperty('BImgIndex', ReadBImgIndex, WriteBImgIndex, True); Filer.DefineProperty('SImgIndex', ReadSImgIndex, WriteSImgIndex, True); end; procedure TUserInfo.ReadBImgIndex(Reader: TReader); begin FBigImgIndex := Reader.ReadInteger; end; procedure TUserInfo.ReadPhone(Reader: TReader); begin FUserPhone := Reader.ReadString; end; procedure TUserInfo.ReadPwd(Reader: TReader); begin FPassword := Reader.ReadString; end; procedure TUserInfo.ReadSImgIndex(Reader: TReader); begin FSmallImgIndex := Reader.ReadInteger; end; procedure TUserInfo.ReadUserIP(Reader: TReader); begin FUserIP := Reader.ReadString; end; procedure TUserInfo.ReadUserName(Reader: TReader); begin FUserName := Reader.ReadString; end; procedure TUserInfo.ReadUserPort(Reader: TReader); begin FUserPort := Reader.ReadInteger; end; procedure TUserInfo.SetUserProperty(vUserIP: string; vUserPort: Integer; vUserphone: string; vUserName: string; vPwd: string; vBigImgIndex: Integer; vSmallImgIndex: Integer); begin FUserIP := vUserIP; FUserPort := vUserPort; FUserphone := vUserPhone; FUserName := vUserName; FBigImgIndex := vBigImgIndex; FSmallImgIndex := vSmallImgIndex; FPassword := vPwd; end; procedure TUserInfo.WriteBImgIndex(Writer: TWriter); begin Writer.WriteInteger(FBigImgIndex); end; procedure TUserInfo.WritePhone(Writer: TWriter); begin Writer.WriteString(FUserphone); end; procedure TUserInfo.WritePwd(Writer: TWriter); begin Writer.WriteString(FPassword); end; procedure TUserInfo.WriteSImgIndex(Writer: TWriter); begin Writer.WriteInteger(FSmallImgIndex); end; procedure TUserInfo.WriteUserIP(Writer: TWriter); begin Writer.WriteString(FUserIP); end; procedure TUserInfo.WriteUserName(Writer: TWriter); begin Writer.WriteString(FUserName); end; procedure TUserInfo.WriteUserPort(Writer: TWriter); begin Writer.WriteInteger(FUserPort); end; end.