Hi,

I refer to your articles on 'Losing Debuginfo without lineno in errors'
as I also want to had the feature to trace my code line giving me the error
without the debug info built into my application.

As mentioned in your article, we just had to replace all methods of the
forms and class library with '*',pack and compile. I tried it and it didn't
work for me. below is my program , please advise what did I do wrong. Thank you


? 'Program in process, please wait...'
ProcessFile('*.scx')
ProcessFile('*.vcx')
? 'Progress completed, please recompile your program again'

RETURN

PROCEDURE ProcessFile(pvFileExt)

LOCAL lNo, lTotalFiles, lFileName

lTotalFiles = ADIR(lTmpArray,pvFileExt)

FOR lNo = 1 TO lTotalFiles

lFileName = ALLT(lTmpArray(lNo,1))
USE (lFileName) IN 0 EXCLUSIVE
SELECT(lFileName)
REPLACE ALL METHODS WITH '*'
FLUSH
PACK
USE IN (lFileName)

ENDFOR

RELEASE lTmpArray

ENDPROC