FiveTech Software tech support forums

ValToPrg() and ValToPrgExp() are not useful for Objects and Codeblocks.

... Upper(<cString>)->cUpperString Used()->lDfbOpen Val(<cNumber>)->nNumber ValPos(<cString>,[<nPos>])->nValue ValToPrg(<xValue>)->cPRGcode ValToPrgExp(<xValue>)->cMacroExpression ValType(<exp>)->cType Version()->cVersion VolSerial([<cDrive>])->nVolumeSerial ...

... Upper(<cString>)->cUpperString Used()->lDfbOpen Val(<cNumber>)->nNumber ValPos(<cString>,[<nPos>])->nValue ValToPrg(<xValue>)->cPRGcode ValToPrgExp(<xValue>)->cMacroExpression ValType(<exp>)->cType Version()->cVersion VolSerial([<cDrive>])->nVolumeSerial ...

... TokenNext Tokennum TokenSep Tone TraceLog Transform Trim TrueName TtoC TtoS Type U2bin UnCompressString UnSelected UpDated Upper Used Val ValPos ValToPrg ValToPrgExp ValType Version VolSerial Volume W2Bin Wild2RegEx WildMatch Win_OleClassExists WMSetPos WoM Word WordOne WordOnly WordRem WordRepl ...

... example outlines possibilities of getting printer information // different from CA-Clipper (DOS). PROCEDURE Main LOCAL aPrinter := GetPrinters() ? ValToPrg( aPrinter ) ? GetDefaultPrinter() ? IsPrinter() ? IsPrinter( aPrinter[1] ) ? IsPrinter( "HP LaserJet" ) RETURN

... that values written in xHarbour can be correctly ready by Harbour and vice-versa. We had to write FW_ValToExp() when we faced some issues using ValToPrg().

... Antonio,... }",y el array { { 1,2,3 },{ 12,13,14 } } lo escribe como: "{ {1,...},... }". No es como ValToPrg() que desglosa el array completo, pero cabe en la celda de la tabla y me da información básica. En este caso me indica que el primer array ...

garcias, willian


con valtoprg(afields) me da en xharbour la informacion del codeblock

la informacion que compone afields


y harbour cual seria el equivalente


gracias

Horacio, a lo mejor te interesa cambiar ASave() por ValToPrg()

... := "Street" //fields, finding Robert Bosch only in streets OR etc. - built the filter: bFilter := &( "{ || WildMatch( " + ValToPrg( cPattern ) + ", " + cFilter + ", .F. ) }" ) - set the filter: MsgRun( "Filter setting is in progress, please wait!", ...

Samir,
I find ValToPrg() helps me a lot in my debugging. It's a function in xHarbour. I normally use it to inspect arrays

... we need to do one time job of converting arrays in to strings. Array is to be converted like "{ 1, 2, SToD( '20090209') }'. Function like ValToPrg( aArray ) --> cString is handy for this. When we read ... aVar := &( field->carrayfield )

... OleServer: PROCEDURE Main() LOCAL oServer, xByRef oServer := CreateObject( "SampleOleServer" ) oServer:MyMethod( "test" ) ? ValToPrg( oServer:MyProperty ) RETURN Please note that you should always distribute the xHBDll.dll (or xharbour.dll if using the .org distributions) ...

... nY but It give me another value and then to control the codeblock I insert a command on settabmp function to see what it make ? nX,nY,aData[1,1], valtoprg (aBmps[1,1]:bLClicked) it show me this : 25 18 X {|| Alert( 'Non Persistentable Block.' ) } what's mean 'Non Persistentable Block ????? If ...

... nY but It give me another value and then to control the codeblock I insert a command on settabmp function to see what it make ? nX,nY,aData[1,1], valtoprg (aBmps[1,1]:bLClicked) it show me this : 25 18 X {|| Alert( 'Non Persistentable Block.' ) } what's mean 'Non Persistentable Block ????? If ...