anchor.diff:      Dest := Default;
   End;
   
  -Function XMLGetByte(P:XMLNode; Const Name:TERRAString; Var Dest:Byte; Default:Byte):Boolean;
  +Function XMLGetByte(P:XMLNode; Const Name:TERRAString; Out Dest:Byte; Default:Byte):Boolean;
   Var
     PP:XMLNode;
   Begin
  
positive.code:     Dest := Default;
  End;
  
  Function XMLGetSingle(P:XMLNode; Const Name:TERRAString; Var Dest:Single; Default:Single):Boolean;
  Var
    PP:XMLNode;
  Begin
  
negative.code:       Property Root:XMLNode Read _Root Write SetRoot;
    End;
  
  Function XMLGetInteger(P:XMLNode; Const Name:TERRAString; Out Dest:Integer; Default:Integer = 0):Boolean;
  Function XMLGetCardinal(P:XMLNode; Const Name:TERRAString; Out Dest:Cardinal; Default:Cardinal = 0):Boolean;
  Function XMLGetByte(P:XMLNode; Const Name:TERRAString; Out Dest:Byte; Default:Byte):Boolean;
  Function XMLGetBoolean(P:XMLNode; Const Name:TERRAString; Out  Dest:Boolean; Default:Boolean = False):Boolean;
  Function XMLGetString(P:XMLNode; Const Name:TERRAString; Out Dest:TERRAString; Const Default:TERRAString = ''):Boolean;
  Function XMLGetSingle(P:XMLNode; Const Name:TERRAString; Out Dest:Single; Default:Single = 0):Boolean;
  
  Implementation
  Uses TERRA_Error, TERRA_Collections, TERRA_FileManager, TERRA_FileStream, TERRA_MemoryStream, TERRA_Log;
  
  Function XMLGetInteger(P:XMLNode; Const Name:TERRAString; Out Dest:Integer; Default:Integer):Boolean;
  Var
    PP:XMLNode;
  Begin
  