aadd array on Harbour

[Silvio.Falconi]

when I compile with harbour give me an error on this line

AAdd( ::aLinea[k], ::GetCode(ALLTRIM( ::aTextLinea[k][nI] ) ) )

why ?

[Otto]

Silvio,
could you provide us with a small self-containing example?
Otto

[Silvio.Falconi]

please download tled class and try the sample test with harbour
https://bitbucket.org/fivetech/fivewin- ... s/tled.zip
with xharbour run ok !!

[hmpaquito]

which is description compiler error ?

[Silvio.Falconi]

Application
===========
Path and name: F:\versioni_TLed\tLed\Array\CodeLed.Exe (32 bits)
Size: 3,398,144 bytes
Compiler version: Harbour 3.2.0dev (r1406271520)
FiveWin Version: FWH 16.03
Windows version: 6.1, Build 7600

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/14/16, 15:48:07
Error description: Error BASE/1068 Argument error: array access
Args:
[ 1] = C 12345678901234567890
[ 2] = N 1

[karinha]

http://www.fivetechsoft.com/harbour-docs/runtimeerrors.html

[Silvio.Falconi]

Perhaps I found a problem

if I use WINDOW it run ok

if use DIALOG NOT RUN MAKE ERROR

WHY ?

[karinha]

I do not know, I do not use harbour only xHarbour.

This is really correct?

Code: Select all  Expand view

   DATA aTextLinea      AS ARRAY   INIT {}

   ::aTextLinea  := Array(::nLedLines)


 METHOD CheckLines() CLASS TLed
   Local nI,k


   ::aLinea:=array(LEN(::aTextLinea))


           For j=1 to LEN(::aTextLinea)
               ::aLinea[j]:={}
            next


         For k=1 To len(::aLinea)
              For nI := 1 to ::nLedCharacters
                     IF ni <= LEN( ::aTextLinea[k] )
                       AAdd( ::aLinea[k], ::GetCode(ALLTRIM( ::aTextLinea[k][nI]  ) ) )
                     ELSE
                       AAdd( ::aLinea[k], ::GetCode( " " )  )
                    ENDIF
                 Next
              Next

    RETURN NIL
 



[hmpaquito]

Silvio.

1st. Is not a compiler error but run time error. Ok.

2nd. Error is here: ::aTextLinea[k][nI] because ::aTextLinea[k] is a string and not is a array.
Adressing string with [] operator is only valid in xHarbour compiler. Neither Clipper or harbour support it.

SubStr(::aTextLinea[k], nI, 1) is a compatible replace for all compilers.


Regards

[Silvio.Falconi]

THIS IS CORRECT

Code: Select all  Expand view

METHOD CheckLines() CLASS TLed
   Local nI,k,j
   ::aLinea:=array(LEN(::aTextLinea))

           For j=1 to LEN(::aTextLinea)
               ::aLinea[j]:={}
            next


         For k=1 To len(::aLinea)
              For nI = 1 to ::nLedCharacters
                     IF ni <= LEN( ::aTextLinea[k] )
                       AAdd( ::aLinea[k], ::GetCode(ALLTRIM( ::aTextLinea[k][nI]  ) ) )
                     ELSE
                       AAdd( ::aLinea[k], ::GetCode( " " )  )
                    ENDIF
                 Next
              Next

    RETURN NIL
 

I ADD ALSO ON NEW METHOD BEFORE THE RETURN SELF THIS LINE

SetWndDefault( oWnd )




ON WINDOW RUN OK BUT ON DIALOG NOW ( HERE) NOT SHOW THE CONTROL

[Silvio.Falconi]

if I change on

AAdd( ::aLinea[k], ::GetCode(ALLTRIM( SubStr(::aTextLinea[k], nI, 1) ) ) )

then it make error on Paint method

For nHeight := 1 to (LEN(::aTextLinea))
For nWidth := 1 to (::nLedCharacters)
aChar := ::aLinea[nHeight][nWidth]
For k := 1 to 8
nLineax := ( (nHeight-1) * ( ( ::nLedHeight * 9 ) + ( ::nLedSpace * 8 ) ) ) + ( (k-1) * ( ::nLedHeight + ::nLedSpace ) ) + ( ::nLedWidth + 3 )
cFila := aChar[k]
For w := 1 to 5
nLineay := ( (nWidth-1) * ( ( ::nLedWidth * 7 ) + ( ::nLedSpace * 4 ) ) ) + ( w * ( ::nLedWidth + ::nLedSpace ) ) + ( ::nLedWidth + 3 )
---> nColorPixel := IIF( cFila[w] == "*", ::nColorLedON, ::nColorLedOFF)
FillSolidRect( ::hDC, { nLineax, nLineay, nLineax + ::nLedHeight, nLineay + ::nLedWidth}, nColorPixel)
Next
Next
Next
Next