Search found 2 matches
- Thu May 19, 2011 11:58 pm
- Forum: eXpress++ Support
- Topic: DC_Array2Excel
- Replies: 1
- Views: 6003
DC_Array2Excel
Hello Roger can you change in the function DC_Array2Excel the line cRange := 'A' + Alltrim(Str(nStartRow)) + ':' + Get_Excel_Column_ID(nColumns) + LTrim(Str(nRows+nStartRow)) into cRange := 'A' + Alltrim(Str(nStartRow)) + ':' + Get_Excel_Column_ID(nColumns) + LTrim(Str(nRows+nStartRow-1)) because it...
- Tue Jul 06, 2010 11:40 pm
- Forum: Xbase++ Support
- Topic: Need Permutation Algorithm
- Replies: 9
- Views: 20680
Re: Need Permutation Algorithm
Roger - this work 7x faster func perm_pb () local ar,i local k1:='ABCDEFG' ar:={k1[1]} for i=2 to len(k1) ar:=perm(ar,k1[i]) next retu NIL ******************** func perm (_a,_s) local i,il:=len(_a),ar[0] for i=1 to il perm1(@ar,_a[i],_s) next retu ar **************** func perm1 (_a,_sm,_s) local ip,...