* debstr.prg 13-Jul-97

* This function takes various type args and converts to a string for debugout

* 28-Jul-00 restructured to use transform

* NOTE: for VFP5 the second argument to transform was required
*       you can use "" for it

lparameter p1, p2, p3, p4, p5, p6, p7, p8, p9, p10

local i, lcRetVal, lpX

lcRetVal = ""

for i = 1 to pcount()
   lpX = eval( "p" + alltrim( str( i ) ) )
   do case
      case type( "lpX" ) == 'C'
         lcRetVal = lcRetVal + [ "] + lpX + ["]
      otherwise
         lcRetVal = lcRetVal + " " + transform( lpX )
   endcase
endfor

return lcRetVal