home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / FUNCTION / LOADVAL.PRG < prev    next >
Text File  |  1994-02-27  |  666b  |  28 lines
  1. //----------------------------------------------------------------------------//
  2.  
  3. function LoadValue( nId, cType, uValue )
  4.  
  5.    local cString := LoadString( GetResources(), nId )
  6.    local uResult := cString
  7.  
  8.    if cType != nil
  9.       cType = Upper( SubStr( cType, 1, 1 ) )
  10.    else
  11.       cType = ValType( uValue )
  12.    endif
  13.  
  14.    do case
  15.       case cType == "N"
  16.            uResult = Val( cString )
  17.  
  18.       case cType == "D"
  19.            uResult = CToD( cString )
  20.  
  21.       case cType == "L"
  22.            uResult = ( Upper( cString ) == ".T." )
  23.    endcase
  24.  
  25. return uResult
  26.  
  27. //----------------------------------------------------------------------------//
  28.