Objekte sortieren mit TArray<T>.BinarySearch

[Uwe Raabe]

Delphi-Quellcode:

  Result := CompareValue(Ord(FAccess, Ord(Other.FAccess)));
  if Result <> 0 then begin
    for I := Low(FFlags) to High(FFlags) do
    begin
      Result := CompareValue(Ord(FFlags[I]), Ord(Other.FFlags[I]));
      if Result <> 0 then Break;
    end;
  end;