FOR i = THISFORMSET.nStart TO THISFORMSET.nEnd FOR lnPosCommands = 1 TO ALEN(THISFORMSET.acCommands) lcIndex = TRANSFORM(i) && <<<<<<<<<<< NEW EVALUATE(THISFORMSET.acCommands(lnPosCommands)) ENDFOR =MESSAGEBOX(VARTYPE(i)) &&<= displays 'C' *i = Val(i) ENDFOR>>You don't need macro substitution:
>>FOR i = THISFORMSET.nStart TO THISFORMSET.nEnd >> FOR lnPosCommands = 1 TO ALEN(THISFORMSET.acCommands) >>* lcCommand = THISFORMSET.acCommands(lnPosCommands) >>* &lcCommand >> EVALUATE(THISFORMSET.acCommands(lnPosCommands)) >> ENDFOR >> =MESSAGEBOX(VARTYPE(i)) &&<= displays 'C' >> *i = Val(i) >>ENDFOR >>>>
>save_FridgLabel(ALLTRIM(STR(i)), 20, 10) >save_FridgLabel(ALLTRIM(STR(i)), 20, 5) >save_FridgLabel(ALLTRIM(STR(i)), 10, 10)>etc.
>extern "C" __declspec(dllexport) LONG save_FridgLabel(LPSTR, LONG, LONG); >>