Object: | frmbehindsc |
LPARAMETERS tnFileHandle, tcMethods LOCAL lcMethods, ; lcThisMethod, ; lnNextMethod lcMethods = tcMethods DO WHILE !EMPTY(lcMethods) lnNextMethod = AT(",", lcMethods) IF lnNextMethod = 0 lnNextMethod = LEN(lcMethods) lcMethods = lcMethods + " " ENDIF lcThisMethod = ALLT(LEFT(lcMethods, lnNextMethod - 1)) *-- Cut the current method lcMethods = SUBSTR(lcMethods, lnNextMethod + 1) thisform.ExtractMethod(tnFileHandle, lcThisMethod) ENDDO