Оптимальный способ искать слова в текстовой (txt) базе.

[Alex Cones]

Function TStringList.SubSearch(SubS:ShortStr ing):Integer;
SubS - Подстрока, которую ищем.
Result - Номер строки, где она находится.

[Serge_Bliznykov]

Function TStringList.SubSearch(SubS:ShortStr ing):Integer;

погодите... TStringList - это многострочный текст.
Вы хотите найти подстроку в тексте (по всем строчкам). (я уже молчу о том, что Вы собираетесь найти только первое вхождение? а продолжить поиск как?!)

Ну, тогда два вопроса - а зачем тогда нужен TStringList ?
и что Вам даст то, что записи отсортированы?!
Берите просто ОДНУ БОЛЬШУЮ строку и ищите в ней...
или я чего-то не понимаю?! ;(

[Alex Cones]

или я чего-то не понимаю?!

Именно.
Объясню с самого начала:
G.txt - база словаря, содержащая глаголы:

...
СТОИТЬ СТОИЛ СТОИЛА СТОИЛО СТОИЛИ СТОЮ СТОИТ СТОЯТ
РЕЗАТЬ РЕЗАЛ РЕЗАЛА РЕЗАЛО РЕЗАЛИ РЕЖУ РЕЖЕТ РЕЖУТ
...

Глаголы, как вы поняли стоят в определенном порядке. (Инф, я пр,он пр, она пр, оно пр, они пр, я наст, он наст, они наст.)
По аналогии другие базы.
В соответствии с указанием Utkin`а буду разбивать по буквам. (30 файлов каждый на одну букву).

Как это работает:

Я ввожу фразу, разбиваю её на слова, делаю все КейсАп (Эта часть уже завершена), дальше мне нужно узнать тип каждого слова (алгоритм уже есть, но еще не набирал), и ПЕРЕВЕСТИ его в инфинитив (что делать? БегАТЬ, плевАТЬ, кусАТЬ). Для этого я ищу в базе слово, узнаю строку, в которой оно содержится и беру первое слово в этой строке. ТАКОЕ СЛОВО ТОЛЬКО ОДНО (продолжать поиск не нужно.)

Почему СтринГлист? Он быстрее всех грузит в себя файл, легко сортирует все по алфавиту, если необходимо "вписать" слово внутрь базы.

Function TStringList.SubSearch(SubS:ShortStr ing):Integer; - Эту функу я собираюсь "внедрить" в список процедур стринГлиста, так как могут возникнуть сложности при передачи имени самого стринГлиста в качестве параметров. Пока она еще не написана, но я работаю над этим.

[Stilet]

Почему СтринГлист?

А я бы все записал в String (2GB хватит за глаза)
и функой POS нашел нужное, ну или собственную функу написал на ассемблеровских вставках, которая бы искала вне зависимости от регистра.

Просто классы штука удобная но не всегда быстрая.

[Alex Cones]

функой POS нашел нужное

Ну хорошо, нашли мы слово, к примеру СТОИЛИ (см пример в посте 33). И дальше что? Как мы узнаем, сколько букв отсчитывать назад для получения слова в инфинитиве?

[Stilet]

Как мы узнаем, сколько букв отсчитывать назад для получения слова в инфинитиве?

До начала строки т.е. первого попавшегося #13 если идти назад

p.S. я лично всегда так поступаю - пока не жаловался на скорость.

[Alex Cones]

Аааа, Вы имеете ввиду грузить файл как одну стринг, а не избавлятся от #10#13!!! Ясно!
Вот только непонятно, как грузануть в стринг сразу весь файл...