Rand(- 1 )
For pnI =  1  To  25 
   Dimension laArray(pnI)
   lnRand = Rand()
   Do Case
      Case lnRand  <  0 . 2 
         lcHasElem = ""
      Case lnRand  <  0 . 6 
         lcHasElem = Space( 1 )+Chr( 31 )
      Case lnRand  <  0 . 7 
         lcHasElem = Space( 1 )
      Case lnRand  <  0 . 8 
         lcHasElem = Space( 2 )
      Case lnRand  <  0 . 9 
         lcHasElem = Space( 3 )
      Otherwise
         lcHasElem = Chr( 31 )+Space( 1 )
   Endcase
   laArray(pnI) = lcHasElem
ENDFOR
?[до сортировки]
Display Memory Like laArray
=Asort(laArray)
?[после сортировки]
Display Memory Like laArray

Set Library To St_Denis Additive
Set Safety Off

Close Database
Open Database (Home( 2 ) + 'data\testdata') Noupdate
Use employee In  0  Noupdate


lnBegTime = Seconds()
lcMaxLenAllWord  = MakeKeyWordsFromAllMemoField([employee], [keywordsemployee])
* lcMaxLenAllWord  = MakeKeyWordsFromAllMemoField([employee], [keywordsemployee], '', [Between(Recno(), 5 , 10 )])
?[Maximal lenght of all words is ], lcMaxLenAllWord
?[performance is ],  Seconds() - lnBegTime, [ seconds ]

Release Library St_Denis



Function MakeKeyWordsFromAllMemoField
   Lparameters tcInputTableName,  tcOutputTableName, tcMemoFieldName, tcForClause
   Create Table (tcOutputTableName) Free  (nRecno N( 12 ), WORDNUM N( 6 ), Word C( 50 ), STARTWORD N( 6 ))
   Select (tcInputTableName)
   If Empty(tcForClause) Or Type('tcForClause') <> 'C'
      tcForClause = '.T.'
   Endif
   Local All
   If Empty(tcMemoFieldName) Or Type('tcMemoFieldName') <> 'C'
      Afields(laFields)
      * if this parameter is not valid
      * we are looking for a first memo field in the table
      For lnI =  1  To Alen(laFields, 1 )
         If laFields(lnI,  2 ) = [M]
            tcMemoFieldName = laFields(lnI,  1 )
            Exit
         Endif
      Endfor
   Endif
   If Empty(tcMemoFieldName) Or Type('tcMemoFieldName') <> 'C'
      Return 'Memo field does not exists !'
   Endif
   tcMemoFieldName = '@'+tcMemoFieldName
   lcUniqArrayName = Sys( 2015 )
   lcDelimiters = [ ,.:;<>|+-_-*&^$%#@~!?"'(){}/]+Chr( 10 )+Chr( 13 )+Chr( 9 )
   lcMaxLenAllWord  =  0 
   Scan For Evaluate(tcForClause)
      lcMaxLenWord  = GETALLWORDS(lcUniqArrayName, &tcMemoFieldName, lcDelimiters)
      If lcMaxLenWord >  0 
         lcMaxLenAllWord  = Max(lcMaxLenAllWord, lcMaxLenWord)
         m->nRecno = Recno()
         Select (tcOutputTableName)
         Append From Array (lcUniqArrayName) Fields WORDNUM, Word, STARTWORD
         Go (Reccount() - Alen((lcUniqArrayName), 1 ) +  1 )
         Replace nRecno With m->nRecno Rest
      Endif
   Endscan
   Release (lcUniqArrayName)
   Return lcMaxLenAllWord