Histórico da Página

DEFINE ma_dados ARRAY[3] OF RECORD
                            codigo SMALLINT,
                            texto  CHAR(10)
                            END RECORD

#----------------------------#
 FUNCTION LOG_RandomizesortArray_test()
#----------------------------#
  DEFINE l_index SMALLINT

  LET ma_dados[1].codigo = 49
  LET ma_dados[1].texto  = 'linha 01'

  LET ma_dados[2].codigo = 27
  LET ma_dados[2].texto  = 'linha 03'

  LET ma_dados[3].codigo = 5
  LET ma_dados[3].texto  = 'linha 02'

  ##Reordenar todas linhas da lista ordenadas pelo elemento 'codigo'
  CALL _ADVPL_LOG_sortArray(ma_dados,'codigo')

  FOR l_index = 1 TO arrayLength(ma_dados)
 	  CALL conout("linha "||l_index USING "<<&"||" - codigo: "||ma_dados[l_index].codigo||" - texto: "||ma_dados[l_index].texto CLIPPED)
  END FOR
END FUNCTION