TIdUserAccount

type TIdUserAccount = class(TCollectionItem)

protected

  FAttributes: TStrings;

  FData: TObject;

  FUserName: string;

  FPassword: string;

  FRealName: string;

  FAccess: TIdUserAccess;

  procedure SetAttributes();

  procedure SetPassword(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  function CheckPassword(); virtual;

  property Data: TObject; [rw]

published

  property Access: TIdUserAccess; [rw]

  property Attributes: TStrings; [rw]

  property UserName: string; [rw]

  property Password: string; [rw]

  property RealName: string; [rw]

end;

TIdUserAccount

TObject