>function SortMethods( lcMethodCode ) > >local lcStr, i, j, n, lcMethodName, lnSelect > >lnSelect = select() >create cursor methods ( methodname c(64), methodcode m ) > >lcStr = lcMethodCode >do while ( ! empty( lcStr ) ) > i = at( "ENDPROC", lcStr ) > lcMethodCode = left( lcStr, i+8 ) > lcStr = substr( lcStr, i+9 ) > n = alines( laMethod, lcMethodCode ) > for i = 1 to n > if ( at( 'PROCEDURE', laMethod[i] ) = 1 ) > lcMethodName = alltrim( substr( laMethod[i], 11 ) ) > exit > endif > endfor > insert into methods values ( lcMethodName, lcMethodCode ) >enddo > >select methodcode, upper( MethodName ) as MethodName ; > from methods ; > into cursor methods2 ; > order by 2 > >select methods2 >lcStr = "" >scan > lcStr = lcStr + methods2.methodcode + chr(13) + chr(10) + chr(13) + chr(10) >endscan >lcStr = left( lcStr, len( lcStr ) - 4 ) >lcStr = strtran( lcStr, chr(9), " " ) >use in methods >use in methods2 >select (lnSelect) >return lcStr >>
>... > lcMethods = SortMethods( lcMethods ) > lcAppendDefineCode=lcAppendDefineCode+toBrowser.FormatMethods(lcMethods) >... > lcMethods = SortMethods( lcMethods ) > lcMethods=toBrowser.FormatMethods(lcMethods) >