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

[Ship_1]

Повышая уровень культурного развития некоторых людей объясняю, что это не ненормативная лексика, это пошлые намёки.

[min@y™]

это пошлые намёки.

Благодарствую, Барин, разъяснил дураку.
Пойду поле пахать - десятину церковную отрабатывать надоть. Повышенный уровень культурного развития придаст мне силы божественной и ускорения.

[Ship_1]

min@y™, а что Вам, кстати, мешает раскрыть механизм поиска в Вашей тестовой программке, ссылка на которую была выше?

[min@y™]

а что Вам, кстати, мешает раскрыть механизм поиска

Моя культурная недоразвитость. Негоже мне, быдлу, программы писать. Пойду в кабак, напьюся водки и буду валяться в канаве, как и подобает простому русскому мужику-работяге. Правильно Вы, ваше благородие, мне моё место указали. Не чета я Вам, не ровня.

А Вы, Барин, извольте, уж как-нибудь сами. Раз простой мужик сдюжил, то Вам-то оно раз-плюнуть будет, с Вашим умищем-то!... Э-эх!

[Ship_1]

Ню-ню.
Мне-то ни к чему (сейчас, во всяком случае): как уже сказал, мне не подходит "принудительная" сортировка списка. А вот другим может пригодиться, наткнувшимся на тему.
Или вместо культуры Вы вредность развивали, и это она теперь Вам не позволяет выложить механизм поиска?

[min@y™]

Или вместо культуры Вы вредность развивали, и это она теперь Вам не позволяет выложить механизм поиска?

Да, да, ты прав, ты прав! Узбагойся!
Надеюсь, твоя культура поможет тебя написать поиск, который будет работать быстрее моего.

[IliaIT]

strok:=TStrings.Create;
а присвоение из списка
strok:=ListBox1.Items;

про индексирование, вообще в листбоксе есть свойство сорт. и всё будет по порядку после загрузки словаря.

на сколько я понимаю ты хочешь выбирать слова не зависимо от того где находится сочетание букв в слове.
не брезгуй словом break если нашёл нужную позицию. или отображай только 10 первых результатов.

[Ship_1]

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

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

Да нет, как раз зависимо:

pos(AnsiLowerCase(Edit1.Text),AnsiLowerCase(ListBox1.Items.Strings[i]))=1

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

про индексирование, вообще в листбоксе есть свойство сорт. и всё будет по порядку после загрузки словаря.

Это про какое индекстирование? Про сортировку листбокса (как и стринглиста) я знаю, но мне здесь она не нужна.

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

не брезгуй словом break если нашёл нужную позицию. или отображай только 10 первых результатов.

Нет, ListBox содержит все слова словаря (список); суть поиска - выделить в нём строку, ближайшую к введённому в Edit.

Со Strings вместо StringList стала появляться "Abstract Error" и выделять строку

For i:=0 to 14 do

Кусок кода, в котором эта строка:

  Slovar.LoadFromFile(ExtractFilePath(Application.ExeName)+'Словарь.txt');
  For i:=0 to 14 do
  Slovar.Delete(0);

(удаляю первые 14 строк содержат название, автора, издательство и прочее)

[min@y™]

Что, Данила-мастер, не выходит каменная чаша?

суть поиска - выделить в нём строку, ближайшую к введённому в Edit.

Моя прога это самое и делает.
Почему сортировка тебе не нужна, не могу понять. Видать, религия не позволяет или сексуальная ориентация.

Со Strings вместо StringList стала появляться "Abstract Error" и выделять строку

Ой, бяда-бяда-огорченье!...

[Ship_1]

Может, закончишь спамить бестолку?