LPARAMETERS taArray, tcString, tcDelimiter LOCAL lcString, lnElements, i, lnPos lcString = tcString+tcDelimiter lnElements = OCCURS(tcDelimiter, lcString) FOR i = 1 TO lnElements lnPos = AT(tcDelimiter, lcString) DIMENSION taArray[i] taArray[i] = SUBSTR(lcString, 1, lnPos-1) lcString = SUBSTR(lcString, lnPos+1) ENDFOR RETURN lnElementsHTH