Hello,

Converting to harbour is finished , now i try to run the aplication.

It doesn't , the aplication ends without warning or error on a line as :

? Datadir[1]

In xhb-dif.txt i found an example to show that harbour can work with this operator , it works

Also in mine aplication xhb.ch is present , xhb.lib is linked in.

I see no difference between the aplication and the sample from harbour.

Any sugestion is welcome

Frank

In my experience, cCharVar[ n ] works in xHarbour but does not work in Harbour. We need to convert it as SubStr( cCharVar, n, 1 )

Hello ,

WARNING : HARBOUR HAS PROBLEMS WITH THE EXTENSIONS FROM XHARBOUR IN A INIT PROCEDURE !!!!!!!

Not working in a init procedure (at least) :

local Test := "Test"
? test[2]

Or FOR EACH (el IN {"A","B"})

I have solved it as

ifdef XHARBOUR

INIT PROCEDURE InitMyAplication()

else

PROCEDURE InitMyAplication()

endif

And then call this procedure in the main module

nageswaragunupudi wrote:In my experience, cCharVar[ n ] works in xHarbour but does not work in Harbour. We need to convert it as SubStr( cCharVar, n, 1 )

# include "fivewin.ch"
#ifndef __XHARBOUR__
  #include "xhb.ch" // add xHarbour emulation to Harbour  , call also hbcompat.ch
  # include "xhbcls.ch"
#endif
  proc Main()
  local s := "ABCDEFG"
  local a := {"A","C"}
  ? s, "=>", s[2], s[4], s[6]
  aIns(a,2,"B",.T.)
  ? a , ("B" IN a)
  s[2] := lower( s[2] )
  s[4] := lower( s[4] )
  s[6] := lower( s[6] )
  ?? " =>", s
return
*********************
INIT PROCEDURE Test
LOCAL test := "TEST"
local a := {"A","C"}
? test[2]
? ("C" IN a)
RETURN