FiveTech Software tech support forums

Creating controls in a loop from array is very tricky. It does not work as expected. Let me show why: Wrong code: for n := 1 to 20 @ n * 20, 50 GET aVar[ n ] OF oWnd <clauses> next n After this loop the present value of " n " ...

Nages, I have this xbrowse with an array https://i.postimg.cc/Mp3kGctt/gor.png when I modify 4th column and the string is "45" i can insert only 2 space how I can resolve ? I made WITH OBJECT oBrwFilter      :bPastEof ...

... ok and if the cString is empty ( i not Know what is on Cstring, so it can be also empty) How set alines ? because then I must set another two array from alines oImage:=array(len(aLines)+1) aImages:=array(len(aLines)+1) how I can resolve ?

... wild (ordwildseek()) con un timer. La busqueda la hago sobre una dbf pero cuando el usuario deja de teclear entonces da el cambiazo y carga un array con el ordwildseek() y sobre el mismo tsbrowse pasa de estar mostrando una dbf a mostrar un array, el de los resultados. Realmente va como un ...

... wild (ordwildseek()) con un timer. La busqueda la hago sobre una dbf pero cuando el usuario deja de teclear entonces da el cambiazo y carga un array con el ordwildseek() y sobre el mismo tsbrowse pasa de estar mostrando una dbf a mostrar un array, el de los resultados. Realmente va como un ...

Code: Select all  Expand view

aLines := hb_ATokens( cString,"|" )
if empty(aLines[1] )
alines:= {}
 

This doesn't help either.

give me 1 instead of zero Because that is the correct answer. aLines  := HB_ATokens( "one", "|" )? aLines // -> { "one" } I not Know how I Have on String now I made aLines := hb_ATokens( cString,"|" ) if empty(aLines[1] ) alines:= {} Endif

Code: Select all  Expand view

   ? LEN( cString )
 

Regards, saludos.

give me 1 instead of zero

Because that is the correct answer.

Code: Select all  Expand view

aLines  := HB_ATokens( "one", "|" )
? aLines // -> { "one" }

local cString:=""
aLines := hb_ATokens( cString,"|" )

?len(aLines)


give me 1 instead of zero

why ?

... the response data. hPost: A hash to store the decoded JSON body from the request. nIdx: An index variable used for iteration. aParameters: An array to store the keys of the decoded JSON. speedtest: Stores the current milliseconds count to measure execution time. Logging: logline("<H>", ...

the second combobox control works fine if I do it in a single dimension, when it tries to repopulate the asubcategory array with two elements it doesn't work and crashes

... nRight := 55      local nHt       := nBottom * DLG_CHARPIX_H      local nWd       := Max( nRight * DLG_CHARPIX_W, 180 )      local aget:=array(10)      local oSay:=array(10)      local oFont,oBold      local nMode:= 1,n       local aCategorie:=TCategorie():GetList()  ...

to select the group I give the way that the end user can select the group (ngroup ) from an array aGroup on which to print and groups Before printing I have to index on the selected group if an archive (odbf) is online I do it normally oDbf:setorder(nGroup)    ...

... the combobox is done with an xbrowse. Maybe we could make aItems multidimensional and then pass the color along with it. Or just pass another ARRAY with the colors. And then compare it in ::bClrStd. ::bClrStd := { || If( ::nArrayAt == ::nHoverAt .and. ::nArrayAt > ::nBlankRows, ; { CLR_WHITE, ...