Ускорение сравнения строк

[Alex Cones]

Сравниваю строки в цикле:

If S[1] In ['A'..'Z'] Then
   Begin
    For Num := 0 To SLBook[Ord(S[1]) - Ord('A')].Count - 1 Do
     If S = SLBook[Ord(S[1]) - Ord('A')].Strings[Num] Then SLResult.Add(RS);
   End;

В стринГлистах находятся слова на определенные буквы. По сравнению с одним большим файлом ускорил процесс в 20 раз. Как ускориться еще?

[Serge_Bliznykov]

господи, ну зачем же писать то, что уже написано?
SLBook - типа TStringList ?
тогда отсортируйте его (.Sort + .Sorted := true) и используйте поиск по .Find

если же сортировать по какой-то причине нельзя,
тогда используйте метод .IndexOf()

[Alex Cones]

и используйте поиск по .Find

Не покажете, как?