[Athen]

нужно сделать таблицу из 20 записей с ключами, отсортированными по возрастанию. Реализовать двоичный поиск, вывести результат и количество сравнений.
что-то делать начала... только не понимаю как вызвать функцию, чтобы работало все

Код:

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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

function ListviewBinarySearch(listview: TListview; const Item: string;    var Index: Integer): Boolean;  var    First, last, pivot, res, k: Integer; Memo1:TMemo;  begin    Memo1.Clear;    k:=0;    Assert(Assigned(listview));    Assert(Length(item) > 0);      Result := False;    Index  := 0;    if listview.Items.Count = 0 then Exit;      First := 0;    last  := listview.Items.Count - 1;    repeat       k:=k+1;      pivot := (First + last) div 2;      res   := lstrcmp(PChar(item), PChar(listview.Items[pivot].Caption));      if res = 0 then      begin        { Found the item, return its index and exit. }        Index  := pivot;        Result := True;        Break;      end { If }      else if res > 0 then      begin        { Item is larger than item at pivot }        First := pivot + 1;      end { If }      else      begin        { Item is smaller than item at pivot }        last := pivot - 1;      end;    until last < First;    Index := First;    Memo1.Lines.Add('количество сравнений=: '+IntToStr(k));  end; { ListviewBinarySearch }     procedure TForm1.Button1Click(Sender: TObject); var i:integer;  m: boolean; listveiew1:Tlistview; begin if Edit1.Text<>'' then  begin   i:=StrToInt(Edit1.Text);   m:=ListviewBinarySearch(ListView1,Item, i);   if m=true then   Memo1.Lines.Add('Результат поиска=: '+'найдено')   else Memo1.Lines.Add('Результат поиска=: '+'не найдено');   end;