FiveTech Software tech support forums

... [<aSizes>], [<aDates>], [<aTimes>], [<aAttributes>]) -> nFiles AEval(<aArray>, <bBlock>, [<nStart>], [<nCount>]) -> aArray AFields([<aFieldsnames>], [<aTypes>], [<aWidths>], [<aDecimals>]) -> nFields ...

...     nStep := 2      nOAng := nAngl/2      nLados:= nLados*2      nPorC := 9.9+(nPorC*0.9)   ENDIF   *FOR nCount = nStart TO nLados STEP nStep    // MODIFIED       aVert[nCount] := { nY+nRadH+(nRadH*Cos(nAngu)), nX+nRadV+(nRadV*Sin(nAngu)) ...

... ocorre um erro de GPF. Resolvido assim: static FUNCTION DolphinSeek( c, oBrw, cQryWhere ) --->ERRO lRet := ( oQry:Seek( c, cSortOrder, nStart - 1, oQry:LastRec(), .T., .T. ) != 0 ) --->OK lRet := ( oQry:Seek( c, cSortOrder, nStart, oQry:LastRec(), .T., .T. ) != 0 )

... o sistema para de responder. XBROWSE+TDOLPHIN static FUNCTION DolphinSeek( c, oBrw, cQryWhere ) ... //error //lRet := ( oQry:Seek( c, cSortOrder, nStart - 1, oQry:LastRec(), .T., .T. ) != 0 ) //OK lRet := ( oQry:Seek( c, cSortOrder, nStart, oQry:LastRec(), .T., .T. ) != 0 ) return lRet

... to another ------------------------------------------------------------------------------ Syntax ACOPY(<aSource>, <aTarget>, [<nStart>], [<nCount>], [<nTargetPos>]) --> aTarget Arguments <aSource> is the array to copy elements from. <aTarget> is ...

hb_At( <cSearch>, <cString>, [<nStart>], [<nEnd>] ) --> nPos

... Al compilar he visto que la función AT() en Harbour es exactamente igual que en Clipper y no tiene los dos parámetros extendidos de xHarbour nStart y nEnd,me imagino que se podría sustituir con un substring: Actualmente: nFinPoint := AT("-", cCalle, 8 ) cambiar a nFinPoint := AT("-", ...

... /* This program demonstrates the speed difference dirty read makes when skipping though a shared database. */ #include "SIXNSX.CH" LOCAL nStart, nEnd SET EXCLUSIVE OFF // Make SHARED the default USE TEST VIA "SIXNSX" // Open up the TEST database INDEX ON last TO last // Build ...

Use oRichEdit:Colorize( nStart, nEnd, nColor )

... 4, 3 ] := { |x| If( x == nil, aData[ 2, 1 ] * aData[ 3, 2 ], ; aData[ 2, 1 ] := x / aData[ 3, 2 ] ) } * New: function FW_ArrSum( aArray, nbCol, nStart, nCount ) --> nSum nbCol can be column number that is to be totalled. Or nbCol can be a codeblock. Codeblock is evaluated for every row, with ...

... is returned. FileStr() Reads a string from a file beginning at a specified offset. Syntax FileStr( <cFileName>, ; [<nBytes>] , ; [<nStart>] , ; [<lCtrl_Z>] ) --> cString Arguments <cFileName> This is a character string holding the name of the file to read from. ...

... 5 segundos",; "Processando, aguarde...",; { | oDlgSef | UpdCaption( oDlgSef) } ) ... Static function UpdCaption( oDlg ) local nFor, nStart for nFor := 4 to 0 step -1 nStart = GetTickCount() while ( GetTickCount() - nStart ) < 1000 end oDlg:cMsg := " wait for "+; LTrim( ...

... http://www.xtech.com.cn/down/mysql.c METHOD Seek( xValue,lSoftSeek,cFieldNames,llast) CLASS TMySQLQuery local nstart,nend,nretry:=0,Xvalue0:=Xvalue,ctype:=VALTYPE(xValue) default lSoftSeek to .t. DEFAULT llast TO .f. if ctype=="C" if len(xValue)<LEN(cvaltochar(if(VALTYPE(cfieldnames)=="B",EVAL(cfieldnames),&cFieldNames))) ...

... 'ALIGN 1' ) AADD( aLabel, 'PRTXT "NO.: ' + cNo + '"' ) AADD( aLabel, 'PRPOS 460,600' ) AADD( aLabel, 'PRTXT "PKG NO: ' + LTRIM(STR(nStart,9)) + ' OF ' + LTRIM(STR(VAL(cPkg_rcv),9)) + '"' ) AADD( aLabel, 'PRPOS 030,525' ) AADD( aLabel, 'PRTXT "P.O. NO.: ' + cPo + '"' ...

Hi Rick; Syntax ASort( <aArray>, [<nStart>], [<nCount>], [<bSort>] ) --> aArray Arguments <aArray> The array to be sorted. <nStart> This is a numeric expression indicating the first element in the array to ...