1:
2:
3:
4:
5:
6:

1  1,00 
2 33,00 
3  2,00
5  7,77
8  3,00
9 20,00                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

1 2 3 5 7 9

Gesucht: 4

1 2 3 5 7 9
....^......

1 2 3 5 7 9
      ..^..

1 2 3 5 7 9
      ^                    

1:

MeineKlassenVar := MeineListe[MeinIndex] as TMeineKlasse;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

TMyClass = class
{..}
end;

TMyObjectList = class(TObjectList)
private
  function GetItem(index: integer): TMyClass;
public
  property Items[index: integer]: TMyClass read GetItem; default;
end;

function TMyObjectList.GetItem(index: integer): TMyClass;
begin
  Result := TMyClass(inherited Items[index]);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function TMyObjectList.BinarySearch(S : String; L, R : integer; var Ind : integer) : Boolean;
//in Ind wird die position die das item haben sollte (falls es neu ist) angegeben, falls es nicht neu ist
//wird hier der Index des existierenden Objektes angegeben
//result ist true, wenn schon ein Objekt mit dem gleichen FileHash existiert
begin
  Result := false;
  if Count = 0 then
    ind := 0
  else
  repeat
    Ind := (L + R) div 2;
    if L > R  then
    begin
      while (ind < Count) and (ind >= 0) and (GetItem(ind).FileHash < S) do
        Inc(Ind);
      break;
    end
    else
    begin
      if S > GetItem(ind).FileHash then
        L := Ind + 1
      else if s < GetItem(ind).FileHash then
        R := Ind - 1
      else
      begin
        Result := True;
      end;
    end;
  until Result; 
end;