怎么把一数组里的元素按所定的分隔符连接成字符串，象VB里的join函数一样

循环用字符串加法拼接就是了。

这个函数该怎么写

lcString = ""
myJoin(@lcString, @aArray, CHR(10))
RETURN

* 为防止生成字符串太长参数传递往返消耗资源，用传址方式返回字符串
PROCEDURE myJoin(tcString, tcArray, tcDelimiter)
    LOCAL lnLen, lnIndex

    tcString = ""
    lnLen = LEN(aArray)
    FOR lnIndex = 1 TO lnLen
        tcString = tcString + aArray[lnIndex]
        IF lnIndex < lnLen
            tcString = tcString + tcDelimiter
        ENDIF
    NEXT

ENDPROC

现写的，没有运行测试，你自己测试看看。

*----字符生成数组
LOCAL ARR(5)
FOR I=1 TO 5
    ARR(I)=REPLICATE(CHR(64+I),5)
ENDFOR
*----数组生成字符串
CSTR=""
FOR I=1 TO ALEN(ARR)
    CSTR=CSTR+ARR(I)+IIF(I<ALEN(ARR),",","")
ENDFOR
?CSTR

SS = ""
FOR EACH CC IN 数组
SS = SS + "," + CC
ENDFOR
SS = subs(SS,2)
? SS