SET ALTER TO cFile ?

[Jimmy]

hi,

for Debug i use

Code: Select all  Expand view

  SET ALTER TO "_LOGIT2.TXT"
   onDummy("Hello World")
   SET ALTER TO
 

and Function

Code: Select all  Expand view

FUNCTION onDummy()
LOCAL iMax   := PCOUNT()
LOCAL i
LOCAL cText  := ""
LOCAL xValue

*   IF lDebug = .T.
      FOR i := 1 TO iMax - 1
         cText += Var2Char( PValue( i ) ) + CHR( 9 )
      NEXT
      cText += Var2Char( PValue( iMax ) )

      SET CONSOLE OFF
      SET ALTER ON

      ? cText

      SET ALTER OFF
      SET CONSOLE ON
*   ENDIF
RETURN NIL

but when call onDummy() under FiveWin i got a

Code: Select all  Expand view

Messagebox(cText, "Alert")

and nothing is redirect to _LOGIT2.TXT

so how under FiveWin

[hmpaquito]

Hi,

? command is translated to msgbox alert in fivewin.ch

A workaround is change ? command for Qout() function

Regards

[Detlef]

Hi Jimmy,

for debugging or log I use the following:
outside the Main function a static cLog := ""
Then all debug info I append to cLog += 'interesting info' + CRLF.
At the end I call msginfo( cLog ).

May be this could work for you too.
Regards,
Detlef

[Otto]

Hello Jimmy,
there is also fwlog function.

Best regards,
Otto

[Jimmy]

hi,

? command is translated to msgbox alert in fivewin.ch
A workaround is change ? command for Qout() function

AHA ...
thx for Workaroud