home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / FUNCTION / ODATA.PRG < prev    next >
Text File  |  1994-05-19  |  577b  |  22 lines
  1. //----------------------------------------------------------------------------//
  2.  
  3. function aOData( oObject )
  4.  
  5.    local aInfo  := ASort( __ClassSel( oObject:ClassH ) )
  6.    local aData  := {}
  7.    local n      := 1
  8.    local lExact := Set( _SET_EXACT, .t. )
  9.  
  10.    while SubStr( aInfo[ n ], 1, 1 ) != "_"
  11.       if AScan( aInfo, "_" + SubStr( aInfo[ n ], 1, 9 ), n + 1 ) != 0
  12.          AAdd( aData, aInfo[ n ] )
  13.       endif
  14.       n++
  15.    end
  16.  
  17.    Set( _SET_EXACT, lExact )
  18.  
  19. return aData
  20.  
  21. //----------------------------------------------------------------------------//
  22.