Implementing QuickSort Sorting Algorithm in Delphi

Trouble shooting tech is my specialty

Yuri_Arcurs/Getty Images

One of the common problems in programming is to sort an array of values in some order (ascending or descending).

While there are many "standard" sorting algorithms, QuickSort is one of the fastest. Quicksort sorts by employing a divide and conquer strategy to divide a list into two sub-lists.

QuickSort Algorithm

The basic concept is to pick one of the elements in the array, called a pivot. Around the pivot, other elements will be rearranged. Everything less than the pivot is moved left of the pivot - into the left partition. Everything greater than the pivot goes into the right partition. At this point, each partition is recursive "quick sorted".

Here's QuickSort algorithm implemented in Delphi:

 procedure QuickSort(var A: array of Integer; iLo, iHi: Integer) ;
  Lo, Hi, Pivot, T: Integer;
  Lo := iLo;
  Hi := iHi;
  Pivot := A[(Lo + Hi) div 2];
    while A[Lo] < Pivot do Inc(Lo) ;
    while A[Hi] > Pivot do Dec(Hi) ;
    if Lo <= Hi then
      T := A[Lo];
      A[Lo] := A[Hi];
      A[Hi] := T;
      Inc(Lo) ;
      Dec(Hi) ;
  until Lo > Hi;
  if Hi > iLo then QuickSort(A, iLo, Hi) ;
  if Lo < iHi then QuickSort(A, Lo, iHi) ;


  intArray : array of integer;
  SetLength(intArray,10) ;

  //Add values to intArray
  intArray[0] := 2007;
  intArray[9] := 1973;

  QuickSort(intArray, Low(intArray), High(intArray)) ;

Note: in practice, the QuickSort becomes very slow when the array passed to it is already close to being sorted.

There's a demo program that ships with Delphi, called "thrddemo" in the "Threads" folder which shows additional two sorting algorithms: Bubble sort and Selection Sort.

mla apa chicago
Your Citation
Gajic, Zarko. "Implementing QuickSort Sorting Algorithm in Delphi." ThoughtCo, Aug. 27, 2020, Gajic, Zarko. (2020, August 27). Implementing QuickSort Sorting Algorithm in Delphi. Retrieved from Gajic, Zarko. "Implementing QuickSort Sorting Algorithm in Delphi." ThoughtCo. (accessed June 7, 2023).