TeeProcs.TTeeSortCompare

TTeeSortCompare

type TTeeSortCompare = function(a, b: Integer): Integer of object;

Unit
TeeProcs

Description
The TeeSort global method sorts custom data in a generic way using the standard QuickSort algorithm.

The Compare function should return -1 if the "a" element is "lower" than the "b" element, 0 is they are equal and 1 if "b" is "lower" than "a".

Example:

In this example, the "TElement" class refers to any class you may have.

procedure TExample.Swap(a,b:Integer);
var tmp : TElement;
begin
tmp:=Element[a];
Element[a]:=Element[b];
Element[b]:=tmp;
end;

Function TExample.Compare(a,b:Integer):Integer;
begin
if Element[a] < Element[b] then result:= -1
else
if Element[b] < Element[a] then result:= 1
else
result:=0
end;

procedure TExample.Sort;
begin
TeeSort(0,Count-1,Compare,Swap);
end;