FiveTech Software tech support forums

... todos los elementos en el orden inverso. Ejemplo: FW_AReverse( { 1, 2, 3, 4 } --> { 4, 3, 2, 1 } - Nueva: FW_RAEval( aArray, bBlock, [nStart], [nCount] ) Evalúa bBlock para cada fila como AEval() pero en el orden inverso desde el último elemento hasta el primero. Si se proporciona el parámetro ...

... length with all elements in the reverse order. Ex: FW_AReverse( { 1, 2, 3, 4 } --> { 4, 3, 2, 1 } - New: FW_RAEval( aArray, bBlock, [nStart], [nCount] ) Evaluates bBlock for every row like AEval() but in the reverse order from last element to the first element. If the optional parameter nStart ...

... then using the Aeval but it not run ok , it result 9155 instead of 24 Function Rit( aData, numero, nWheel,nRecord )   local nCount   := 0   local nPos1,nPos2,nPos3,nPos4,nPos5   local bBlock,cond      nPos1 := ( nWheel - 1 ) * 5 + 3      nPos2 := ( nWheel - 1 ...

... local nDelay number:=89 // delay must be 24 ? Rit( aDataDbf, number, 1, nrecord ) return nil Function Rit( aData, numero, nWheel,nRecord ) local nCount := 0 local nPos1,nPos2,nPos3,nPos4,nPos5 local bBlock nPos1 := ( nWheel - 1 ) * 5 + 3 nPos2 := ( nWheel - 1 ) * 5 + 4 nPos3 := ( nWheel - 1 ) ...

... Rao has already implemented RAEval() in a very simple way :-) To be included in the next FWH build function FW_RAEval( aArray, bBlock, nStart, nCount )   local nPos  := IfNil( nStart, Len( aArray ) )   RAScan( aArray, { |u| Eval( bBlock, u, nPos ), nPos--, ...

... { |a| If( a[ nPos1 ] == numero .or. ; a[ nPos2 ] == numero .or. ; a[ nPos3 ] == numero .or. ; a[ nPos4 ] == numero .or. ; a[ nPos5 ] == numero , nCount++, nil ) } ) Now I wish start at the end and go back basically I want go to bottom() and make to skip (-1) up to a certain record How I can resolve

...     ? freq(oDbf, 34, 1 ) // Frequency of number 34 in position 1 (field 3)return nilFunction freq( aData, numero, npos )   local nCount   := 0   nPos  += 2   AEval( aData, { |a| If( a[ nPos ] == numero, nCount++, nil ) } )return nCount Nages, run ok thanks a question....to calculate ...

... } ) NEXT // sort Result ASORT( aResult,,, { | aX, aY | aX[ 1 ] < aY[ 1 ] } ) // set Color when "dupe" nNumColor := 600000 nCount := 0 ii := 1 FOR ii := 1 TO LEN( aResult ) IF aResult[ ii ] [ 2 ] > 1 nCount ++ aResult[ ii ] [ 3 ] := NumColor2RGB( nNumColor * nCount ) ...

... init form CFG_ Function test() local aVar:= {} nMemHandle := Fopen( 'config.mem', 2 ) nMemLength := Fseek( nMemHandle, 0, 2) Fseek(nMemHandle,0) nCount := 1 Do While Fseek(nMemHandle, 0, 1)+1 < nMemLength nMemWidth:= space(18) Fread( nMemHandle, @nMemWidth, 18 ) cVarName := Left( nMemWidth, ...

... being written to the same folder as the executable, with contents such as this: 2021/06/24 13:37:37: EXCESS RELEASE OF FONT ARIAL[ hFont : 0] ( nCount : -1 ) <-TFONT:END(0) <-TBUTTON:DESTROY(0) <-TWINDOW:HANDLEEVENT(0) <-TBUTTON:HANDLEEVENT(0) <-_FWH(0) <-SENDMESSAGE(0) <-(b)TWINDOW(0) ...

... más rápida de hacer eso: ACopy() Copy elements from one array to another Syntax ACopy( <aSource>, <aTarget>, [<nStart>], [<nCount>], [<nTargetPos>] ) → aTarget Arguments aSource is the array to copy elements from. aTarget is the array to copy elements to. nStart ...

ASort() Posted on January 7, 2014 by vivaclipper ASORT() Sort an array Syntax ASORT( <aArray>, [<nStart>], [<nCount>], [<bSort>] ) --> aArray Arguments <aArray> Array to be sorted. <nStart> The first element to start the sort from, default is 1. ...

Buenas tardes Para un asunto similar, poner un bAction a unos botones variables, lo solucioné pasando como referencia NO el valor de nCount, pues va cambiando, sino haciendo un codeblock por código . Creo recordar que era la solución propuesta por Cristóbal (ese genio ¡¡¡¡¡ ) Function HazBlock( ...

... me puse a depurar los fuentes. Casi resolvi todo, a excepcion de: 11/12/2019 09:53:45: EXCESS RELEASE OF FONT Segoe UI[ hFont : 0] ( nCount : 0 ) <-TFONT:END(284) <-TCONTROL:DESTROY(2124) <-TOUTLOOK2010:DESTROY(424) <-TAPPLICATIONWITHDLL:ACTIVATE(1494) <-MAIN(834) ------------------------------------------------------------ ...

... me puse a depurar los fuentes. Casi resolvi todo, a excepcion de: 11/12/2019 09:53:45: EXCESS RELEASE OF FONT Segoe UI[ hFont : 0] ( nCount : 0 ) <-TFONT:END(284) <-TCONTROL:DESTROY(2124) <-TOUTLOOK2010:DESTROY(424) <-TAPPLICATIONWITHDLL:ACTIVATE(1494) <-MAIN(834) ------------------------------------------------------------ ...