home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / gt_tostr.prg < prev    next >
Text File  |  1993-10-14  |  2KB  |  76 lines
  1. /*
  2.  File......: GT_TOSTR.prg
  3.  Author....: Phillip Hamlyn
  4.  BBS.......: The Dark Knight Returns
  5.  Net/Node..: 050/069
  6.  User Name.: Phillip Hamlyn
  7.  Date......: 03/03/93
  8.  Revision..: 1.0
  9.  
  10.  This is an original work by Phillip Hamlyn and is placed in the
  11.  public domain.
  12.  
  13.  Modification history:
  14.  ---------------------
  15.  
  16.  Rev 1.0 03/03/93
  17.  Initial revision.
  18. */
  19.  
  20. /*  $DOC$
  21.  *  $FUNCNAME$
  22.  *      GT_TOSTR()
  23.  *  $CATEGORY$
  24.  *      String
  25.  *  $ONELINER$
  26.  *      Convert a clipper variable type to a string
  27.  *  $SYNTAX$
  28.  *      GT_ToStr( <xVar> ) --> <cVar>
  29.  *  $ARGUMENTS$
  30.  *      <xVar>        Any Clipper variable type.
  31.  *  $RETURNS$
  32.  *      <cVar>       Character representation of the variable passed.
  33.  *  $DESCRIPTION$
  34.  *      Function used to convert a clipper variable type to a string.
  35.  *  $EXAMPLES$
  36.  *      GT_ToStr(space(8)) --> space(8)
  37.  *      GT_ToStr("Phillip Hamlyn") --> "Phillip Hamlyn"
  38.  *      GT_ToStr( {|| "PCH" } ) --> "PCH"
  39.  *      GT_ToStr( 123123 ) --> "123123"
  40.  *      GT_ToStr( ctod("31/08/69") ) --> "31/08/69"
  41.  *      GT_ToStr( {1,2,3} ) --> ""
  42.  *      GT_ToStr( TbrowseNew() ) --> ""
  43.  *      GT_ToStr( TRUE ) --> "Y"
  44.  *  $SEEALSO$
  45.  *
  46.  *  $INCLUDE$
  47.  *
  48.  *  $END$
  49.  */
  50.  
  51. #include "gt_lib.ch"
  52. //==================
  53. function GT_ToStr (xVar)
  54. //==================
  55. // returns the string of any xVariable type
  56.  
  57. if valtype(xVar) != TYPE_STRING
  58.    do case
  59.       case valtype(xVar) == TYPE_NUMERIC
  60.          return ltrim(str(xVar))
  61.       case valtype(xVar) == TYPE_DATE
  62.          return dtoc(xVar)
  63.       case valtype(xVar) == TYPE_BLOCK
  64.          return GT_ToStr(eval(xVar))
  65.       case valtype(xVar) == TYPE_MEMO
  66.          return xVar
  67.       case valtype(xVar) == TYPE_LOGICAL
  68.          return iif(xVar,"Y","N")
  69.       case valtype(xVar) == TYPE_UNDEFINED
  70.          return ""
  71.    endcase
  72. else
  73.    return xVar
  74. endif
  75. return ""
  76.