Реализация "следящего" поиска для словаря

[Ship_1]

Здравствуйте, уважаемые.
Решил сделать "оболочку" для найденного в пространствах интернета словаря в txt-формате и в удачной для обработки структуре.

Оболочка простейшая: Edit, ListBox и Memo (потом попробую разобраться с RichEdit, и, если пойму, заменю Memo на него).

Но сейчас меня интересует вот какой вопрос: как осуществить при введении слова в Edit "высвечивание" "ближайшего по алфавиту" в ListBox?

Пробовал две реализации.
Реализация 1:

procedure TForm1.Edit1Change(Sender: TObject);
var i,j:integer;
begin
  If Edit1.Text<>'' then
  begin
    i:=0;
    while (pos(AnsiLowerCase(Edit1.Text),AnsiLowerCase(ListBox1.Items.Strings[i]))<>1) and (i<ListBox1.Count-1) do inc(i);
    if (i<ListBox1.Count-1) or (pos(AnsiLowerCase(Edit1.Text),AnsiLowerCase(ListBox1.Items.Strings[i]))=1) then
    begin
      ListBox1.ItemIndex:=i;
      ListBox1Click(Sender);
    end;
  end
  else
  begin
    ListBox1.Items.Assign(StringGrid1.Cols[0]);
    ListBox1.ItemIndex:=0;
    ListBox1Click(Sender);
  end;
end;

Реализация 2:

procedure TForm1.Edit1Change(Sender: TObject);
var i,j:integer;
begin
  If Edit1.Text<>'' then
  begin
    i:=0;
    j:=1;
    While i<ListBox1.Count do
    begin
      if j>1 then if AnsiLowerCase(Edit1.Text)[j-1]<>AnsiLowerCase(ListBox1.Items.Strings[i])[j-1] then
      begin
        ListBox1.ItemIndex:=i;
        ListBox1Click(Sender);
        exit;
      end;
      if pos(AnsiLowerCase(Edit1.Text),AnsiLowerCase(ListBox1.Items.Strings[i]))=1 then
      begin
        ListBox1.ItemIndex:=i;
        ListBox1Click(Sender);
        exit;
      end;
      if AnsiLowerCase(Edit1.Text)[j]<>AnsiLowerCase(ListBox1.Items.Strings[i])[j] then inc(i) else inc(j);
    end;
  end
  else
  begin
    ListBox1.Items.Assign(StringGrid1.Cols[0]);
    ListBox1.ItemIndex:=0;
    ListBox1Click(Sender);
  end;
end;

Первая реализацимя работает хорошо, пока вводящееся слово находится в содержимом слов словаря. Потом начинает тормозить с каждой вводимой буквой, "просматривая" каждый раз весь словарь. Вторая реализация тормозит меньше, но с каждой вводимой буквой. Плюс есть ещё один серьёзный недостаток второй реализации: иногда слова в словаре идут не в алфавитном порядке (я их не сортирую после добавления в ListBox, оставляю в том виде, в каком были в исходном текстовике). И если по второй реализации программа доходит до этого слова, то дальше уже не ищет, т.к. у следующего слова уже другое "начало". Этот нюанс, конечно, серьёзно портит любые способы поиска (кроме первого варианта), поэтому рассматриваются способы для двух случаев:
Случай 1. Данные в ListBox дополнительно не сортируются по алфавиту
Случай 2. Данные в ListBox принудительно сортируются по алфавиту.
Сейчас буду пробовать "модернизировать" первую реализацию, введя массив чисел, равных позициям певых; первых двух и первых трёх букв слова, ограничив таким образом "пролистывание" поиска и сократив время "торможения".
Собственно, сам вопрос:
Как ещё можно сделать поиск по ListBox, чтобы он не тормозил?

[Stilet]

ListBox1.ItemIndex:=i; и ListBox1Click(Sender); выкинь из цикла. Тогда перерисовки не будет.
Или если нужно с несколькими работать поставь ListBox.Items.BeginUpdate; перед циклом и ListBox.Items.EndUpdate; после.

[Ship_1]

Добавил так:

    i:=0;
    ListBox1.Items.BeginUpdate;
    while (pos(AnsiLowerCase(Edit1.Text),AnsiLowerCase(ListBox1.Items.Strings[i]))<>1) and (i<ListBox1.Count-1) do inc(i);
    ListBox1.Items.EndUpdate;
    if (i<ListBox1.Count-1) or (pos(AnsiLowerCase(Edit1.Text),AnsiLowerCase(ListBox1.Items.Strings[i]))=1) then
    begin
      ListBox1.ItemIndex:=i;
      ListBox1Click(Sender);
    end;

Тормозить меньше не стало.
ListBox1.ItemIndex:=i; и ListBox1Click(Sender); не в цикле. Они после завершения цикла. ListBox1.ItemIndex:=i; выделяет найденное, ListBox1Click(Sender); отображает статью по слову.

[min@y™]

Не используй компонент для хранения списка строк.
Список должен быть отсортирован.
Убрать из цикла то, что можно сделать 1 раз до цикла (AnsiLowerCase).
Цикл поиска вытащить в отдельный тред.

[Ship_1]

Сообщение от min@y™

Не используй компонент для хранения списка строк.

Как это? Создавать каждое обращение к процедуре StringList? Вряд ли будет лучше. А если создать только в FormCreate и сделать его глобальным для программы, то при ошибке не сработает Free для списка, что не хорошо. А по ходу выполнения программы таких возможностей может быть не мало. Подобные вещи я стараюсь избегать.

Сообщение от min@y™

Список должен быть отсортирован.

Почему? Первый вариант работает и с неотсортированным. Но подтормаживает.

Сообщение от min@y™

Убрать из цикла то, что можно сделать 1 раз до цикла (AnsiLowerCase).

Попробую, но сомневаюсь, что убирание одного из двух AnsiLowerCase заметно улучшит ситуацию... А больше, вроде, и нечего убирать.

Сообщение от min@y™

Цикл поиска вытащить в отдельный тред.

Не понял слова "тред"...

[min@y™]

Создавать каждое обращение к процедуре StringList? Вряд ли будет лучше. Почему? Первый вариант работает и с неотсортированным.
Попробую, но сомневаюсь...

Занимаюсь компами 24 года, из них 14 работаю программистом (на заводе, за настоящую зарплату). Поскольку свои выводы ты уже сделал, ответ мой на твои первые 3 коммента будет таким: если не веришь, то и не спрашивай тогда. Чо полез на форум, если умный такой? Советы критиковать? Ну-ну...

Не понял слова "тред"...

Thread

[Stilet]

Как это? Создавать каждое обращение к процедуре StringList? Вряд ли будет лучше.

Я тебя огорошу: ListBox1 это тяжелая визуализация этого класса.

А если создать только в FormCreate и сделать его глобальным для программы, то при ошибке не сработает Free для списка, что не хорошо.

А что освободить объект в соответствующем событии формы запрещено?

Подобные вещи я стараюсь избегать.

Отсюда и проблемы. Не то ты избегаешь.

[Ship_1]

Сообщение от Stilet

Я тебя огорошу: ListBox1 это тяжелая визуализация этого класса.

Не совсем получилось Я знаю, что это визуализация StringList, но не имею представления на сколько тяжёлая.

Сообщение от Stilet

А что освободить объект в соответствующем событии формы запрещено?

Нет, но как я не могу предусмотреть все возможные события? Каждую процедуру помещать в try..except?

Если не сложно, то можно тогда для лучшего понимания попросить пару слов теории, которую не во всех самоучителях найдёшь?
1. Во всех ли случаях у формы выполняется событие OnClose, или в случае каких-нибудь ошибок программа может прерывать выполнение не обращаясь даже к этой функции?
2. Чем критично не освобождение объекта? В случае программного не освобождения выделяемая ему память очищается только при перезагрузке/выключении компьютера?
3. Что "работает" быстрее? StringList или динамический массив строк?

Сообщение от min@y™

...если не веришь, то и не спрашивай тогда. Чо полез на форум, если умный такой? Советы критиковать? Ну-ну...

А чо, уточняющие вопросы для лучшего понимания ответов задавать на форуме запрещено? Тут надо действовать по принципу "что сказали, то и делай, не думая"?

[min@y™]

Тут надо действовать по принципу "что сказали, то и делай, не думая"?

Да. Только думая.

[Ship_1]

Сообщение от min@y™

Да. Только думая.

Думая иногда появляются вопросы. Которые я и задаю.