ASort

ASort ( < aVetor>, [ nInicio], [ nCont], [ bOrdem] ) --> aRetorno

(vetor)
• Retorna uma referência ao array de origem aVetor.

• Se o parâmetro <bOrdem> não for especificado, a ordem padrão será ascendente ( do menor para o maior ), e o array informado deve conter elementos de um mesmo tipo básico. Valores do tipo D (data) são ordenados cronologicamente, tipos N ( numéricos ) idem, no caso de tipo L (lógico), o valor .F. ( falso ) é considerado menor que o valor .T. ( verdadeiro ) .
•  Se a função ASort for utilizada para um array aninhado (multidimensional. ou array de arrays ), o parâmetro bOrdem deve ser informado, para indicar a regra de ordenação a ser realizada, caso contrário, o array não será ordenado.
• O argumento do bloco do código <bOrdem>, quando especificado, é utilizado para determinar a ordem em que os elementos serão colocados. Cada vez que o bloco de código é avaliado, dois elementos do array destino são passados como parâmetro de bloco, e  o bloco deverá retornar .T. ( true  ) caso os elementos estejam na ordem desejada. 

#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
Local aExemplo := {}
Local cMensagem := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função ASort                                           |
//+----------------------------------------------------------------------------+
  AAdd(aExemplo, "Banana")
  AAdd(aExemplo, "Maçã")
  AAdd(aExemplo, "Pêra")
  AAdd(aExemplo, "Limão")
  AAdd(aExemplo, "Abacaxi")
  AAdd(aExemplo, "Laranja")
  AAdd(aExemplo, "Mamão")
  AAdd(aExemplo, "Graviola")
  ASort(aExemplo)
  cMensagem += "Ordem crescente: " + CRLF
  cMensagem += aExemplo[1] + CRLF
  cMensagem += aExemplo[2] + CRLF
  cMensagem += aExemplo[3] + CRLF
  cMensagem += aExemplo[4] + CRLF
  cMensagem += aExemplo[5] + CRLF
  cMensagem += aExemplo[6] + CRLF
  cMensagem += aExemplo[7] + CRLF
  cMensagem += aExemplo[8] + CRLF
  ASort(aExemplo, , , {|x,y|x > y})
  cMensagem += "Ordem decrescente: " + CRLF
  cMensagem += aExemplo[1] + CRLF
  cMensagem += aExemplo[2] + CRLF
  cMensagem += aExemplo[3] + CRLF
  cMensagem += aExemplo[4] + CRLF
  cMensagem += aExemplo[5] + CRLF
  cMensagem += aExemplo[6] + CRLF
  cMensagem += aExemplo[7] + CRLF
  cMensagem += aExemplo[8] + CRLF
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos                            |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do ASort")