TArray.BinarySearch

[avd]

Здравствуйте.

type
  TArrDyn16 = array of UInt16;
...
  List: TArrDyn16;
  Index: Int32;
// Массив в цикле для исключения дубликатов заполняется числами вот так:
if not TArray.BinarySearch<UInt16>(List, k, Index) then
  begin
     SetLength(List, Length(List) + 1);
     List[High(List)] := k;
  end;
...

В k последовательно вводятся числа 1 50 2 50 3 50 4.
На выходе в List получаю 1 50 2 3 4.
В k последовательно вводятся числа 1 50 2 50 3 50 4 50.
На выходе в List получаю 1 50 2 3 4 50.
В чем засада?

[Аватар]

В том, что используется двоичный поиcк -> массив должен быть сортирован

[avd]

Спасибо!

if not TArray.BinarySearch<UInt16>(List, k, Index) then
begin
  SetLength(List, Length(List) + 1);
  List[High(List)] := k;
  TArray.Sort<UInt16>(List); // Помогло, однако.:)
end;