Последовательный поиск

Для понимания этой статьи вам будет достаточно базовых знаний о программировании баз данных в Delphi.
Основная форма проекта должна содержать компоненты TTable и TEdit (назовем его edtSearch). Заметим, что таблица, к которой прикреплен компонент TTable, должна быть проиндексирована по полю, в котором производится поиск.
Компонент TTable содержит несколько методов для поиска заданного значения в таблице. Это методы Goto, GoToKey, GoToNearest, Find, FindKey, Find Nearest и другие (описание этих методов смотрите в помощи). Добавим обработчик события OnChange для компонента TEdit:

procedure TForm1.edtSearchChange(Sender: TObject); begin with Table1 do begin SetKey; FieldByName('Company').AsString:=edtSearch.text; GotoNearest; end; end;

Собственно, все. Можно откомпилировать и запустить программу. Введите что-нибудь в поле ввода и вы увидите, как после набора каждого символа указатель текущей записи таблицы перемещается, указывая на запись, сответствующую тому, что вы ввели.
Теперь можно немного усложнить обработчик onChange. Например, можно отключить обработчик, если пользователь нажимает Backspace или Delete, или поле ввода не содержит текста. Выглядеть это будет примерно так:

procedure TForm1.edtSearchChange(Sender: TObject); var txt, sfind:string; len:integer; begin //don't do anything if user presses //delete or backspace if edFromCode = true then begin edFromCode := false; exit; end; //don't do anything if there is //no text in edSearch txt:=edtSearch.Text; if Length(txt)=0 then exit; //goto nearest match with Table1 do begin SetKey; FieldByName('Company').AsString:=edtSearch.text; GotoNearest; end; //calculate what part of text should be selected sfind := Table1.FieldByName('Company').AsString; len := Length(sfind) - Length(txt); if len > 0 then begin edFromCode:=true; edtSearch.Text:=sfind; edtSearch.SelStart:=Length(txt); edtSearch.SelLength:=len; end; end;

Для такого случая нужен дополнительный код - обработчик события onKeyDown:

procedure TForm1.edtSearchKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key=VK_DELETE) or (Key=VK_BACK) then begin if Lenght(edtSearch.Text)>0 then begin //onchange event should not be executed... edFromCode := true; end; end; end;

В данной статье я реализую алгоритм бинарного поиска для массива int длины NMAX. Метод binary_search будет возвращать индекс элемента, если он существует и -1 в противном случае. Функции binary_search передается на вход три параметра:

1. x — элемент, поиск которого производится в массиве.

2. l (left) — левая граница поиска

3. r (right) — правая граница поиска

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

#include <iostream> #include <vector> #include <algorithm> #define NMAX 10 using namespace std; int a[NMAX]; int binary_search(int x, int l ,int r) { while(r - l > 1) //пока результат не станет однозначным { int mid = (l + r) / 2; //делим отрезок [l,r] пополам if(a[mid]<x) //првоеряем где находимся { l = mid; } else { r = mid; } } //цикл нужен, чтобы не править код //в случае увелечения интервала //[l,r] for(int i = l; i <= r; i++) if(a[i]==x) return i; return -1;// не нашли такого элемента } int main() { for(int i = 0; i < NMAX; i++) { a[i] = rand(); } sort(a, a + NMAX); cout << binary_search(a[5],0,NMAX-1); return 0; }