angelo.c wrote:Thanks Carlos for that neat piece of code. I use the OutputDebugString(...) command a lot in my code for debugging.
I modified yours slightly to make it more useful for me so that array values can be displayed on the output debug window.
Here is the modified code:
#ifdef __RELEASE__ #xcommand DEBUG <cString1>[, <cStringN>] => #else #translate ASSTRING( <x> ) => If( <x> == NIL, 'NIL', Transform( <x> , NIL ) ) + CRLF #xcommand DEBUG <cString1>[, <cStringN>] ; => ; OutputDebugString( ProcName() +"("+LTrim(Str(ProcLine())) +") - " ) ; OutputDebugString( <"cString1">+" ("+ValType( <cString1> )+"): " ) ; OutputDebugString( FormatAsString( <cString1> ) ) ; [ ; OutputDebugString( ProcName() +"("+LTrim(Str(ProcLine())) +") - " ) ; OutputDebugString( <"cStringN">+" ("+ValType( <cStringN> )+"): " ) ; OutputDebugString( FormatAsString( <cStringN> ) ) ] #endif
Then add these two routines somewhere in your code:
****************************************************************** * Procedure: FormatAsString( xVal ) * Notes...: Writes information stored in xVal as a string suitable to be * output to any standard character output device. * Function returns the formatted string representing the value "xVal" ***************************************************************** Function FormatAsString( xVal ) local cString, cValtype, cBuffer,i, j local nFirstDimLen,nSecondDimLen, nSecondDimType local cTabSeparator := chr(VK_TAB) cValtype := VALTYPE(xVal) DO CASE CASE cValtype == "A" //Check if an Array nFirstDimLen := len(xVal) //First Dimension length //Init to a show array length and then output a new line cString := "Array Length is: " + alltrim(str(nFirstDimLen)) + " ... Array values follow:" + CRLF if nFirstDimLen > 0 FOR i := 1 TO nFirstDimLen //Loop through the number of First dimension elements nSecondDimType := if (xVal[i] == NIL, "U", ValType(xVal[i])) //Type of Second dimension element if nSecondDimType == 'A' nSecondDimLen := len(xVal[i]) //Number of Second dimension elements if nSecondDimLen != 0 // Must be non-zero length array cBuffer := "" //Init to empty string FOR j := 1 TO nSecondDimLen //Loop through the number of Second dimension elements cBuffer := cBuffer + ElementToString(xVal[i][j]) + cTabSeparator NEXT // j else //if nSecondDimLen != 0 cBuffer := "Nil Array {}" endif //if nSecondDimLen != 0 else // if cValType == 'A' cBuffer := ElementToString(xVal[i]) //Convert element that is NOT an Array to a string value endif // if cValType == 'A' cString += cBuffer + CRLF //Build resultant string NEXT // i else cBuffer := "Nil Array {}" + CRLF endif OTHERWISE // xVal is NOT an array at this point. cString := ElementToString(xVal) + CRLF ENDCASE return cString ****************************************************************** * Procedure: ElementToString( xVal ) * Notes...: Function returns a string representing the value "xVal" ***************************************************************** Function ElementToString(xVal) local cBuffer, cValtype := VALTYPE(xVal) DO CASE CASE cValtype == "A" //Check if an Array cBuffer := "Recursive Array. Not Implemented" CASE cValtype == "L" //Logical value ... I prefer the displayed .T. or .F. notation cBuffer := if(xVal, ".T.", ".F.") CASE cValtype == "C" .OR. cValtype == "M" //ASCII String or Memo value cBuffer := xVal CASE cValtype == "N" //Numeric cBuffer := Alltrim(str(xVal)) CASE cValtype == "D" //Date cBuffer := DToC(xVal) OTHERWISE cBuffer := "Not Processed" // All other cases, then return "Not Processed" ENDCASE return cBuffer
When you execute this:
local cText := "Array n := {2, 4, 6}"
local n := {2, 4, 6}
DEBUG cText, n, Date(), .T., 5, Nil
n := {1, "Test String",{3,4,5}, .t.}
DEBUG n
n := {}
DEBUG n
you get on the output debug window the following:
PACKIT(197) - cText (C): Array n := {2, 4, 6}
PACKIT(197) - n (A): Array Length is: 3 ... Array values follow:
2
4
6
PACKIT(197) - Date() (D): 18/03/2009
PACKIT(197) - .T. (L): .T.
PACKIT(197) - 5 (N): 5
PACKIT(197) - Nil (U): Not Processed
PACKIT(200) - n (A): Array Length is: 4 ... Array values follow:
1
Test String
3 4 5
.T.
PACKIT(203) - n (A): Array Length is: 0 ... Array values follow:
Ofcourse, the code can be tailored to suit yourselves; perhaps even displaying instantiated Object variables in a tabular form.
Best regards,
Angelo.c
Dear Angelo,
What is output debug window? I try your modified code but it doesn't show anywhere?
Regards,
Dutch
Regards,
Dutch
FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Dutch
FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
