Revision 13:c78b5eafa10e Server/UAccount.pas

b/Server/UAccount.pas
30 30 
interface
31 31 

  		





  32
  32
  
    
uses


  		





  33
  
  
    
  Classes, SysUtils, md5, contnrs, math, DOM, UXmlHelper, UInterfaces,


  		





  34
  
  
    
  UEnums, URegions;


  		





  
  33
  
    
  Classes, SysUtils, contnrs, math, DOM, UXmlHelper, UInterfaces, UEnums;


  		





  35
  34
  
    

  		





  36
  35
  
    
type


  		





  37
  36
  
    

  		





  ......




  86
  85
  
    

  		





  87
  86
  
    
constructor TAccount.Create(AOwner: IInvalidate; AName, APasswordHash: string;


  		





  88
  87
  
    
  AAccessLevel: TAccessLevel; ARegions: TStringList);


  		





  89
  
  
    
var


  		





  90
  
  
    
  i : Integer;


  		





  91
  88
  
    
begin


  		





  92
  89
  
    
  inherited Create;


  		





  93
  90
  
    
  FOwner := AOwner;


  		












Also available in:
	Unified diff