LiveCode Forums.

Code: Select all

global varArray1, varArray2

on mouseUp
   if the short name of the target is "btnAdd" then
      put the text of field "fldArray1Item" into varArray1[last line of the keys of varArray1]
      put the text of field "fldArray2Item" into varArray2[last line of the keys of varArray2]
      put empty into field "fldArray1Item"
      put empty into field "fldArray2Item"
   else if the short name of the target is "btnShow" then
      put varArray1 into field "fldArray1List"
      put varArray2 into field "fldArray2List"
   else if the short name of the target is "btnRefresh" then
      put empty into field "fldArray1Item"
      put empty into field "fldArray2Item"
      put empty into field "fldArray1List"
      put empty into field "fldArray2List"
      put empty into varArray1
      put empty into varArray2
   end if
end mouseUp

Code: Select all

global varArray1, varArray2

on mouseUp
   
   --this is based on the assumption that you are trying to use numeric indexes for the
   --array keys, but they don't have to be
   
   if the short name of the target is "btnAdd" then
      --find the highest numerical index for the array elements
      put the keys of varArray1 into tArr1Keys
      put the keys of varArray2 into tArr2Keys
      --max works on comma separated lists (or actually arrays, but the keys are not the array)
      replace cr with comma in tArr1Keys
      replace cr with comma in tArr2Keys
      put max (tArr1Keys) + 1 into tNewIndex1
      put max (tArr2Keys) + 1 into tNewIndex2
      --max() will work on unsorted lists
      
      --BUT it is vital to understand that the keys of an array are NOT sorted
      --unless you do this yourself
      
      sort items of tArr1Keys numeric ascending
      sort items of tArr2Keys numeric ascending
      --the above lines will be needed if you are expecting to identify a particular index due to its order in the list
      --this will become more readily noticeable as you experiment and learn about "associative arrays" 
      --the variables are comma separated lists now so sort by items
      --without the change to accommodate max() function, you could sort by lines normally
      
      put the text of field "fldArray1Item" into varArray1[tNewIndex1] -- you can't put it into a line of the keys
      --you have to give it a value to become the key for the new element
      put the text of field "fldArray2Item" into varArray2[tNewIndex2]
      put empty into field "fldArray1Item"
      put empty into field "fldArray2Item"
      
   else if the short name of the target is "btnShow" then
      --arrays are not "human readable" as one list
      --to populate the field as one block (list) you
      --first have to combine the array elements
      combine varArray1 using return -- just the data
      combine varArray2 using return and "_" -- show the keys (with separator) as well
      --now the arrays have been combined 
      --they ARE NO LONGER ARRAYS
      put varArray1 into field "fldArray1List"
      put varArray2 into field "fldArray2List"
      --in order to add more elements without starting again, you will need to 
      --SPLIT the variables back into arrays, according to how you combined them
      split varArray1 by return -- creates numeric index by default
      split varArray2 by return and "_" --uses the first value before the separator (number) for the index
   else if the short name of the target is "btnRefresh" then
      put empty into field "fldArray1Item"
      put empty into field "fldArray2Item"
      put empty into field "fldArray1List"
      put empty into field "fldArray2List"
      put empty into varArray1
      put empty into varArray2
   end if
end mouseUp

Code: Select all

global sArray1, sArray2

command addToArray
   if fld "fldArray1" is not empty then 
      put the number of lines in the keys of sArray1 + 1 into tNum
      put fld "fldArray1" into sArray1[tNum]
      put empty into fld "fldArray1"
   end if
   --
   if fld "fldArray2" is not empty then 
      put the number of lines in the keys of sArray2 + 1 into tNum
      put fld "fldArray2" into sArray2[tNum]
      put empty into fld "fldArray2"
   end if
end addToArray

command showArrays
   if sArray1 is not empty then
      put item 2 of the extents of sArray1 into tMax1
      repeat with i = 1 to tMax1
         put sArray1[i] & cr after tArrayToString1
      end repeat
      delete the last char of tArrayToString1
      put tArrayToString1 into fld "slfArray1"
   end if
   --
      if sArray2 is not empty then
      put item 2 of the extents of sArray2 into tMax2
      repeat with i = 1 to tMax2
         put sArray2[i] & cr after tArrayToString2
      end repeat
      delete the last char of tArrayToString2
      put tArrayToString2 into fld "slfArray2"
   end if
end showArrays

command refreshAll
   put empty into fld "fldArray1"
   put empty into fld "fldArray2"
   put empty into fld "slfArray1"
   put empty into fld "slfArray2"
   put empty into sArray1
   put empty into sArray2
end refreshAll

Code: Select all

local x
put 1 into x

on mouseUp
put something into myArray[x]
add 1 to x
end mouseUp