лон пошуку', mtWarning, [mbOK], 0): = LE_Shablon.Text;: = 1;: = kol;: = false; (low <= high) and (not found) do: = (low + high) div 2; str < mas [mid] then: = mid-1if str> mas [mid] then: = mid +1: = true;; found then.SelStart: = Memo2.Perform (EM_LINEINDEX, mid-1, 0);. SelLength: = Length (Memo2.Lines [mid-1]);. SetFocus; ('Шаблон пошуку не знайдено!', mtWarning, [mbOK], 0);
end; ('Дані не відсортовані! Пошук неможливий!', mtWarning, [mbOK], 0);
end; TMainForm.Button8Click (Sender: TObject);: String;, j, k, m, n, nom: integer;: array [0 .. 10000] of String;: boolean;: = false; Memo1. Text <>'' theni: = 1 to Memo1.Lines.Count do [i]: = Memo1.Lines [i-1];: = Memo1.Lines.Count; ('Не введений список!', mtWarning, [mbOK], 0); LE_Shablon.Text ='' then ('Не заданий шаблон пошуку', mtWarning, [mbOK], 0): = LE_Shablon.Text;: = Length (str);
k: = 1 to kol do: = Length (temp [k]); i: = 1 to n-m +1 do: = 0; (j
end;
end.
Додаток 2
Сортування і пошук даних
В
Рис. 3.1. Зовнішній вигляд форми на етапі розробки
Додаток 3
Сортування і пошук даних
В
Рис. 3.2. Головна форма програми
