#define _HMG_OUTLOG  
  
 #ifdef _HMG_OUTLOG  
 #include "hmg.ch"  
 #endif 
  
 Function Main() 
  
 	Local o := oHmgData(), h 
  
 	o:Set( hb_Hash( "_FormMain", 1, "_FormAbout", 200 ) ) 
 	o:Set( "_FormOther", 99 ) 
 	o:Set( "_FormPreff", 67 ) 
  
 	s_ObjTest( o ) 
  
 	h := o:CloneHash() 
 	o := Nil 
  
 	o := YATHmgData():New( .f. ) 
 	o:Set( h ) 
  
 	//hb_HClear( h ) 
  
 	s_ObjTest( o ) 
  
 Return  
  
 Static Function s_ObjTest( obj ) 
 	Local e 
  
 	? '--------' 
 	? obj:ClassName() 
 	? '--------' 
  
 	? "s:", PadR("_FormMain",  12), obj:Get( "_FormMain",  404 ) 
 	? "s:", PadR("_FORMMAIN",  12), obj:Get( "_FORMMAIN",  404 ) 
 	? "s:", PadR("_FORMOTHER", 12), obj:Get( "_FORMOTHER", 404 ) 
 	? "s:", PadR("_formother", 12), obj:Get( "_formother", 404 ) 
  
  
 	for each e in obj:GetAll() 
 		? "f:", PadR(e[1], 12), StrZero(e[2],3), e:__enumIndex() 
 	next 
  
 	for each e in obj:GetAll( .t. ) 
 		? "t:", StrZero(e,3), e:__enumIndex() 
 	next 
  
 Return  
  
 #ifdef __XHARBOUR__ 
 #include "hbcompat.ch" 
 #endif 
 #include "hbclass.ch" 
  
 #define _METHOD METHOD 
  
 /////////////////////////////////////////////////////////////////////////////// 
 CLASS YATHmgData //  Y[et]A[nother]HmgData 
 /////////////////////////////////////////////////////////////////////////////// 
  
    PROTECTED: 
    VAR lMatch  AS LOGICAL 
    VAR aHash   AS HASH INIT { => } 
  
    EXPORTED: 
    VAR Cargo 
  
    METHOD New( lMatch ) INLINE ( ::lMatch := !Empty( lMatch ), hb_hCaseMatch( ::aHash, ::lMatch ), Self ) 
  
    METHOD Set( Key, Val ) INLINE iif( HB_ISHASH( Key ), ::aHash := hb_hSetCaseMatch( Key, ::lMatch), hb_HSet( ::aHash, Key, Val ) ) 
    METHOD Get( Key, DefVal ) INLINE hb_HGetDef( ::aHash, Key, DefVal ) 
    METHOD Del( Key ) INLINE iif( ::Pos( Key ) > 0, hb_HDel( ::aHash, Key ), Nil ) 
    METHOD Pos( Key ) INLINE hb_HPos( ::aHash, Key ) 
    METHOD Len() INLINE Len( ::aHash ) 
  
    METHOD Keys() INLINE hb_HKeys( ::aHash ) 
    METHOD Values() INLINE hb_HValues( ::aHash ) 
    METHOD CloneHash() INLINE hb_HClone( ::aHash ) 
  
    _METHOD GetAll( lOnlyVal ) 
    _METHOD Eval( xBlock ) 
  
    ERROR HANDLER ControlAssign 
  
 ENDCLASS 
 /////////////////////////////////////////////////////////////////////////////// 
  
 METHOD GetAll( lOnlyVal ) CLASS YATHmgData 
  
    LOCAL aRet := {} 
  
    IF HB_ISLOGICAL( lOnlyVal ) .AND. lOnlyVal 
 		//hb_HEval( ::aHash, {| k, v, i | AAdd( aRet, v ) } ) 
 		aRet := ::Values() 
    ELSE 
 		hb_HEval( ::aHash, {| k, v, i | AAdd( aRet, { k, v } ) } ) 
    ENDIF 
  
 RETURN aRet 
  
 METHOD Eval( xBlock ) CLASS YATHmgData 
  
    LOCAL b := HB_ISBLOCK( xBlock ) 
    LOCAL l := HB_ISLOGICAL( xBlock ) .AND. xBlock 
    LOCAL aRet := iif( b, NIL, {} ) 
  
    IF b 
 		hb_HEval( ::aHash, xBlock ) 
    ELSEIF l  
 		//hb_HEval( ::aHash, {| k, v, i | AAdd( aRet, v ) } ) 
 		aRet := ::Values() 
    ELSE 
 		hb_HEval( ::aHash, {| k, v, i | AAdd( aRet, { v, k, i } )} ) 
 	ENDIF 
  
 RETURN aRet 
  
 METHOD ControlAssign( xValue ) CLASS YATHmgData 
  
    LOCAL cMessage, uRet 
    LOCAL lError := iif( PCount() <= 1, .F., .T. ) 
  
    cMessage := __GetMessage() 
  
    IF PCount() == 1 
       ::Set( SubStr( cMessage, 2 ), xValue ) 
    ENDIF 
  
    uRet := iif( lError, ::Get( cMessage ), NIL ) 
    uRet := iif( !lError, ::Get( cMessage ), NIL ) 
  
    IF lError 
       ::MsgNotFound( cMessage ) 
    ENDIF 
  
 RETURN uRet 
 /////////////////////////////////////////////////////////////////////////////// 
 

 
 #define _HMG_OUTLOG 
 #include "hmg.ch" 
  
 Function Main() 
  
   Local o := oHmgData(), h, e, a 
  
   o:Set(hb_readini("demo.ini")) 
   for each e in o:GetAll() 
       IF e[1] == [COM] 
          h := oHmgData() 
          h:Set(e[2]) 
          for each a in h:GetAll() 
              ? a:__enumIndex(), hb_valtoexp(a) 
          next 
       ENDIF 
   next 
 Return 
  
 demo.ini 
 [COM] 
 DiskArc  = D:\eAlarm\BACKUP ; Archives storage location (files *.7z) 
 PathArc  = .\BAKS     ; Archived copies daemon_*.7z for timing 
 PathXml  = .\XML      ; directory for excel reporting 
 PathBAK  = .\BAK      ; Auto loading files *.fdb from files *.bak 
 ModeBAK  = 1          ; 1 - delete fdb after loading fdb, 0 - no delete 
 LoadBAK  = 1          ; loaded: 0 - last bak, 1 - all bak files from directoy 
 ModeFDB  = 1          ; 1 - delete all dbf after loading fdb, 0 - no delete 
 User     = sysdba     ; FDB user 
 Password = masterkey  ; FDB password 
 TimerSek = 30         ; usage: 60*60 = 1 hour or 60*60*3 = 3 hours  
 TimeLoad = 17:15:00   ; , 23:00:00-23:59:59 ; time load *.7z => *.bak 
 Host     = 127.0.0.1  ;  
 Language = RU 
  
 результат 
 1  {"DiskArc", "D:\eAlarm\BACKUP ; Archives storage location (files *.7z)"}    
 2  {"PathArc", ".\BAKS     ; Archived copies daemon_*.7z for timing"}    
 3  {"PathXml", ".\XML      ; directory for excel reporting"}    
 4  {"PathBAK", ".\BAK      ; Auto loading files *.fdb from files *.bak"}    
 5  {"ModeBAK", "1          ; 1 - delete fdb after loading fdb, 0 - no delete"}    
 6  {"LoadBAK", "1          ; loaded: 0 - last bak, 1 - all bak files from directoy"}    
 7  {"ModeFDB", "1          ; 1 - delete all dbf after loading fdb, 0 - no delete"}   
 8  {"User", "sysdba     ; FDB user"}    
 9  {"Password", "masterkey  ; FDB password"}  
 10 {"TimerSek", "30         ; usage: 60*60 = 1 hour or 60*60*3 = 3 hours"}  
 11 {"TimeLoad", "17:15:00   ; , 23:00:00-23:59:59 ; time load *.7z => *.bak"}  
 12 {"Host", "127.0.0.1  ;"}    
 13 {"Language", "RU"}    
 

#define _HMG_OUTLOG  
 #ifdef _HMG_OUTLOG  
 #include "hmg.ch"  
 #endif 
  
 Function Main() 
  
     Local o := oHmgData() 
     Local h := hb_Hash("_FormMain", 1, "_FormAbout", 200) 
  
     //o:Set(hb_hSetCaseMatch(h, .f.)) 
     o:Set(h) 
     o:Set("_FormOther", 99) 
     o:Set("_FormPreff", 67) 
  
     s_ObjTest( 'oHmgData()', o) 
     ? '--------' 
     ? o:ClassName(), '***', o:_FormMain, "|", o:_FORMMAIN, "|", o:_FORMOTHER 
     ? '========' 
  
 Return  
  
 Static Function s_ObjTest( p, obj ) 
     Local e 
  
     ? '========' 
     ? obj:ClassName() 
     ? '--------' 
  
     p += ':' 
     ? p, PadR("_FORMMAIN",  16), obj:Get( "_FORMMAIN",  404 ) 
     ? p, PadR("_formmain",  16), obj:Get( "_formmain",  404 ) 
     ? p, PadR("_FormMain",  16), obj:Get( "_FormMain",  404 ) 
     ? p, PadR("_FORMOTHER", 16), obj:Get( "_FORMOTHER", 404 ) 
     ? p, PadR("_formother", 16), obj:Get( "_formother", 404 ) 
     ? p, PadR("_FormOther", 16), obj:Get( "_FormOther", 404 ) 
                   
     for each e in obj:GetAll() 
         ? e:__enumIndex(), PadR(e[1], 16), e[2] 
     next 
  
 Return