Objekte sortieren mit TArray<T>.BinarySearch

[Zacherl]

Hallo zusammen,

ich habe eine Liste von Objekten und möchte diese per TArray<T>.BinarySearch in eine absolute Ordnung bringen und dabei sämtliche Duplikate eliminieren. Soweit so gut ... hier ein Auszug aus meinem Code:

Delphi-Quellcode:

if (not TArray.BinarySearch<T>(FItems, V, J, Comparer, N, C - N)) then
begin
  for K := C downto J + 1 do
  begin
    FItems[K] := FItems[K - 1];
  end;
  FItems[J] := V;
  Inc(C);
end;

C ist hierbei die Anzahl der Items im Array und N ist ein Offset für den Fall, dass meine Liste ein paar vorwegstehende Default-Elemente besitzen soll (braucht in diesem Falle nicht zu interessieren). FItems wird am Anfang auf die gesamte Anzahl der Objekte festgelegt - hat also garantiert genug Platz.

Zum eigentlichen Problem: Für den Vergleich implementiere ich mir eine CompareTo Funktion, welche ich dann im Comparer aufrufe:

Delphi-Quellcode:

function TMyClass.CompareTo(Other: TMyClass): Integer;
var
  I: Integer;
begin
  Result := (Length(FFlags) + 1) * (Ord(FAccess) - Ord(Other.FAccess));
  for I := Low(FFlags) to High(FFlags) do
  begin
    Result := Result + (I + 1) * (Ord(FFlags[I]) - Ord(Other.FFlags[I]));
  end;
end;

FAccess ist hierbei ein Enum und FFlags ein array[0..N] of Enum .

Beobachtung: Nachdem ich von einem "normalen" EqualityComparer zum Eliminieren der Duplikate auf die Methode mit BinarySearch umgestellt habe und ins Git committen wollte, ist mir aufgefallen, dass 57 Zeilen entfernt, aber nur 53 hinzugefügt wurden (ein Objekt pro Zeile). Aus irgendeinem Grund fehlen mir demnach 4 Datensätze.

Ist meine Vorgehensweise - also über die Multiplikation eine Wertung herzustellen - so überhaupt korrekt?
Falls ja, gibt es da bessere Ansätze, die weniger anfällig für Integer Overflows sind?

Kann mir hier irgendjemand auf die Sprünge helfen?

Viele Grüße
Zacherl