home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / FUNCTION / WQOUT.PRG < prev    next >
Text File  |  1994-01-16  |  809b  |  40 lines
  1.  
  2. #define CRLF chr(13) + chr(10)
  3.  
  4. //---------------------------------------------------------------------------//
  5.  
  6. function WQout( aParams )
  7.  
  8.     local cOut := ""
  9.  
  10.     if valtype( aParams ) == "A"
  11.        AEval( aParams, { | c |  cOut :=  cOut + CRLF + cValToChar( c ) } )
  12.        nMsgBox( cOut )
  13.     endif
  14.  
  15. return nil
  16.  
  17. //----------------------------------------------------------------------------//
  18.  
  19. function uCharToVal( cValue, uType )
  20.  
  21.    local cType   := ValType( uType )
  22.    local uResult
  23.  
  24.    do case
  25.       case cType == "C"
  26.            uResult = cValue
  27.  
  28.       case cType == "N"
  29.            uResult = Val( cValue )
  30.  
  31.       case cType == "D"
  32.            uResult = CToD( cValue )
  33.  
  34.       case cType == "L"
  35.            uResult = ( cValue == ".T." )
  36.    endcase
  37.  
  38. return uResult
  39.  
  40.