FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.ch"
STATIC FUNCTION ExtendCodeBlock()
local bBloque, cBloque, i
   // Este código funciona bien   
   bBloque := { || 
                LOCAL i
                FOR i := 1 to 10
                   MSGINFO(STR(i,1))                                    
                NEXT i 
                return nil 
                } 

   Eval(bBloque) 
   // Este código funciona bien
   cBloque := "{|i| MsgInfo(i)}"
   bBloque := &(cBloque)
   // Esto da error 
   Eval(bBloque,1) 
   cBloque := "{|| "+CHR(10)+; 
              "  LOCAL i "+CHR(10)+;
              "  FOR i := 1 to 10 "+CHR(10)+;
              "     MSGINFO(STR(i,1))  "+CHR(10)+;
              "  NEXT i "+CHR(10)+;
              "  return nil}"
   bBloque := &(cBloque)   
   Eval(bBloque) 
   // Este da error
   cBloque := MemoRead( "func.prg")
   bBloque := &(cBloque)
   Eval(bBloque)    
return nil
 

Code: Select all | Expand

    function Run_prg( cPrg )
    local oHrb, cResult
    if !db_conn()
       return( NIL )
    endif
    if !file( cPrg + ".prg" )
       MsgAlert( "Nera tokio failo: " + cPrg + ".prg !" )
       return( NIL )
    endif

    FReOpen_Stderr( "run_prg.log", "w" )
    HB_Compile( "", cPrg + ".prg", "/n", "/gh", "-ID:\A\fwh\include", "-ID:\A\hrbg\include" )
    oHrb = HB_HRBLOAD( cPrg + ".hrb" )
    HB_HRBDO( oHrb )
    HB_HRBUNLOAD( oHrb )
    oHrb = NIL
    return( NIL )