FiveTech Software tech support forums

James Bott wrote:Maurizio,

I don't understand this syntax. Please explain.

Local aVars := {=>}

What is {=>} ?

Does that preprosses into something else?

James

No, it is the regular syntax required to initialize an empty hash (ie. similar to aVars := {} for arrays).

EMG

Maurizio,

I don't understand this syntax. Please explain.

Local aVars := {=>}

What is {=>} ?

Does that preprosses into something else?

James

... see where you are using a hash? Did you know that the equivalent of scatter and gather is built into database objects. And instead of refering to aVars[1], you can refer to oCust:name. This makes the code much easier to write and read. There are lots of other good reasons to use database objects. ...

Hello Otto I use Hash for manage the database Function Scatter() Local aVars := {=>} LOcal nField := FCount() LOcal nX := 1 FOR nX := 1 TO nField aVars[FIELDNAME(nX)] := FieldGet(nX) NEXT Return aVars Function Gather(aVars) lOCAL Nx := 1 FOR Nx := 1 TO LEN(aVars) ...

... #include "Dbstruct.ch" #translate Gather(<a>) => AEVAL(<a>, {|x, i| FIELDPUT(i, <a>\[i\]) }) FUNCTION Scatter (aVars, lBlank) LOCAL nSize := FCOUNT(), aDBStruct, cFieldType aVars := ARRAY(nSize) IF lBlank aDBStruct := DBSTRUCT() AEVAL(aVars, {|x, nI| aVars[nI] ...

... (4096 * 3) #define NSPLIT_LINES 25000 #include "Common.ch" #include "FiveWin.ch" FUNCTION Main (cFile) #define nHandle aVars[1] #define cInFile aVars[2] #define cOutFile aVars[3] #define nPieces aVars[4] #define nLineCtr aVars[5] #define nTotLines aVars[6] #define nI ...

Luis, Yo uso una array para todas las variables en mis aplicaciones, ARCHIVO DE CABECERA <CH> // Array de Variables MEMVAR aVarPublics // Definicion de Variables #define VARIABLE...1 aVarPublics[ 1 ] #define VARIABLE...2 aVarPublics[ 2 ] ....... #define VARIABLE...n aVarPublics[ n ] ...... #de...

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

Regards Maurizio

... the date in a hash . Regards Maurizio //-------------------------------------------------------------------------- Function MAin() Local aVArs USE "CLI01.dbf" aVars := LoadDbf() aVars:CODPRO := "ABCD" SaveDbf(aVars) use Return nil Function ...

... simulate Scatter and gather of the record //------------------------------------------------------------------------- FUNCtion Scatter() Local aVars := {=>} LOcal nField := FCount() LOcal nX := 1 FOR nX := 1 TO nField aVars[FIELDNAME(nX)] := FieldGet(nX) NEXT RETURN aVars Function Gather(aVars) ...

... case valtype(valor)="D";valor:=dtoc(valor) case valtype(valor)="L";valor:=if(valor,"T","F") Endcase retu valor STATIC Func acomodar(cLine) Local aVars,j,variable,valor,n IF (n:=AT("//",cLine))>0 cLine:=SUBS(cLine,1,n-1) ENDIF Do case case (n:=AT("++",cLine))>0;cLine:=SUBS(cLine,1,n-1)+"="+SUBS(cLine,1,n-1)+"+1" ...

... case valtype(valor)="D";valor:=dtoc(valor) case valtype(valor)="L";valor:=if(valor,"T","F") Endcase retu valor STATIC Func acomodar(cLine) Local aVars,j,variable,valor,n IF (n:=AT("//",cLine))>0 cLine:=SUBS(cLine,1,n-1) ENDIF Do case case (n:=AT("++",cLine))>0;cLine:=SUBS(cLine,1,n-1)+"="+SUBS(cLine,1,n-1)+"+1" ...

... una solución es cambiarlas por una única (ó varias) variables tipo array: public uno, dos, tres, cuatro, cinco, seis se cambiaría a: public aVars y aVars se haría igual a { <valor de uno>, <valor de dos>, ..., etc } Si generas un error en la aplicación (por ejemplo, escribe x++) ...

Tengo un array (aVars) que contiene (campo,valor,tipo) de un tabla de mysql que sus valores depende del nombre de la tabla que le pasemos, entonces mi idea es, si por ejemplo, la tabla tiene los campos: id,idEmpresa,codigo,descripcion ...

... varTOclass() class CDIt local nScope nScope := 1 ::s_oClass := IIF(.F.,,HBClass():new("tAux",__CLS_PARAM ( "TControl" ) ) ) for i = 1 to len(::aVars) ::s_oClass:AddMultiData(,::aVars[i,2] ,iif(.F.,1,iif(.F.,2,iif(.F.,4,nScope) ) ) + iif(.F.,16,0 ),{::aVars[i,1]},.F.,.F. ) next ::s_oClass:Create() ...