Problema con uso del Hash .....

[Ale SB]

Hola,

Estou testando esta funçao com FwPpc:

Code: Select all  Expand view

********************************************************************************
FUNCTION LoadDbf()
********************************************************************************
  LOCAL aVars  := {=>}
  LOCAL nField := FCount()
  LOCAL nX := 1
   FOR nX := 1 TO  nField
       aVars[FieldName(nX)] := FieldGet(nX)
   NEXT

Return aVars


, mas, estas retornando el erro:

Code: Select all  Expand view

Erro de limite
array assign
   Args:
     [   1] = H   
     [   2] = C   DATAENTR
     [   3] = D   13/01/2009

stack calls:
LOADDBF(48)
VERSIS(29)
(b)MAIN(97)
TWINDOW:ACTIVATE(0)
MAIN(97)


.Prg

Code: Select all  Expand view

Local aVars
dbUseArea(.T.,"DBFCDX","SbInfo.Dbf",, .F.)
     aVars := LoadDbf()


Struct del BD SBInfo.Dbf

Code: Select all  Expand view

'DataEntr', 'd',  08,  0


O que podes estar havendo ?

Saluds, Ale

[Maurizio]

I think that
LOCAL aVars := {=>}
is only for xHarbour not for harbour , you have to chek how works HASH for HArbour

Regards Maurizio

[Ale SB]

Gracias Maurizio

Saluds, Ale

[Ale SB]

No consegui, encontrar nenhuma documentação do harbour para uso de Hash, alguem pode me alguma dica ?

Saluds, Ale