Integra for Notes Banner
  QuickReports Integra4Notes Integra Family of Products

Integra Script Library Documentation


Context:

Procedure

Library/Class:

Utilities



Sub QuickSort

QuickSort (SortArray() As String, Descending As Integer)

This procedure is using the quick sort algorithm to sort the elements in an array. I can do so either ascending or descending order.

Parameters:

    SortArray (Array of Strings)
      Array of text string elements.
    Descending (Integer)
      Integer. True or False. If True QuickSort will sort in descending order.

      Sample:
       



        Dim arr(4) As String
      Dim lst As String

      arr(0) = “bananas”
      arr(1) = “grapes”
      arr(2) = “apples”
      arr(3) = “pears”
      arr(4) = “oranges”

      Call QuickSort(arr,False)

      lst = ArrayToString(arr,”,”)

      Call MessageDialog(lst,0,”Sorted List”)
       

 
QUICK LINKS
 
 

 

  © Shireburn Software Ltd. 2008 - 2024