Implementing Custom Binary Search for TObjectList (Delphi XE)

Question

I need to implement a binary search on TObjectList that uses a custom comparer, I believe using TCustomComparer.

Goal: binary search returns instances in the list that conform to a particular property parameter.

For example:

TMyClass=class
    public
     Index:integer
end;

TMyObjectList=TObjectList<TMyClass>;

begin
  ...
    aMyClass.Index:=1;
    aMyObjectList.binarysearch(aMyClass, aMyClassRef) 
  ...
end;

Or simply:

 begin
   ...
     aMyObjectList.binarysearch(1, aMyClassRef) 
   ...
 end;

I want to loop and get back instances of TMyClass in the list that also have Index==1.

In C++, overloading the '==' operator achieves this goal.

The new Delphi 'help' is rather sparse and scattered around making things hard to find, and I'm not that familiar with all the nuances of the new Delphi generics.

So - how do I do it in Delphi XE with the Generics.TObjectList?

(Using Delphi XE).

TIA

David Heffernan · Accepted Answer · 2012-09-05T18:29:59.557

The help file is indeed a little limited here. I generally just read the source code to Generics.Defaults and Generics.Collections. Anyway, you need to provide an IComparer<TMyClass>. There's lots of ways to do that. For example, using an anonymous function:

var
  List: TObjectList<TMyClass>;
  Target: TMyClass;
  Index: Integer;
  Comparer: IComparer<TMyClass>;
  Comparison: TComparison<TMyClass>;
....    
Comparison :=
  function(const Left, Right: TMyClass): Integer
  begin
    //Result := ??;//your comparison rule goes here
  end;
Comparer := TComparer<TMyClass>.Construct(Comparison);
List.BinarySearch(Target, Index, Comparer);

If you don't want to use an anonymous function you can implement Comparison some other way. For example a method of some object, or a class function, or even just a plain old fashioned non-OOP function. It just has to have the same signature as above.

As always with comparison functions, return <0 if Left<Right, >0 if Left>Right and 0 if Left=Right.

Thanks David - your edit popped in just as I was asking myself the question you answered with it. — Vector, Sep 05 '12 at 18:31
Glad to see you're still hard at work here David. I personally have a job that precludes spending too much time on here except when necessary. Wish I could contribute more. I do read plenty of source code but I'm already late on this project and I knew I'd get an answer on here right away. Thanks again. M — Vector, Sep 05 '12 at 18:34

Implementing Custom Binary Search for TObjectList (Delphi XE)

1 Answers1