Оптимизация кода.

[Izhic]

ИМХО основной вопрос про это , там цветочки:

For I:=0 to C do
   Begin
    For J:=1 to 3 do
     Begin
      For K:=3 downto 1 do
       Begin
        Case J of
         1:TS:='VRB';
         2:TS:='AJT';
         3:TS:='SBS';
        End;
        SL:=TStringList.Create;
        SL.LoadFromFile(DDir+TS+IntToStr(K)+'.aef');
        L:=Copy(A[i],Length(A[i])-K+1,K);
        For M:=0 to SL.Count-1 do
         If (SL.Strings[M]=L) And (Not(H)) Then
          Begin
           T[i]:=J;
           H:=True;
          End;
        SL.Free;
       End;
     End;

[Alex Cones]

А шо? тоже плохо? Вроде и СтрГлисты использую для скорости. В файлах VRB1 VRB2 VRB3 AJT1 AJT2 AJT3 SBS1 SBS2 SBS3 находятся окончания с соответствующим кол-вом букв. VRB - глагол AJT - прилагательное SBS - существительное. Код-то работает. Но с треском и скрипом.

[Izhic]

Во-первых,

        Case J of
         1:TS:='VRB';
         2:TS:='AJT';
         3:TS:='SBS';
        End;

Вынести на цикл вверх вероятно...
Во-вторых естественно 4 вложенных цикла самое сложное место программы
В-третьих пойду есть, потом досмотрю

[Alex Cones]

Вынести на цикл вверх вероятно...

Честно говоря ЩИТО???

[Izhic]

For J:=1 to 3 do
Begin
For K:=3 downto 1 do
Begin
Case J of
1:TS:='VRB';
2:TS:='AJT';
3:TS:='SBS';
End;

For J:=1 to 3 do
Begin
Case J of
1:TS:='VRB';
2:TS:='AJT';
3:TS:='SBS';
End;
For K:=3 downto 1 do
Begin

У Вас case вроде Как J, а работает он в цикле K. Зачем надо?
TS ниже не где не изменятся, J тоже вроде, верно ведь ...

[Alex Cones]

Отлично, еще одна ступень моего коварного плана осуществлена.
А как с сердцевинкой?

[Izhic]

SL:=TStringList.Create;
SL.LoadFromFile(DDir+TS+IntToStr(K) +'.aef');

Может тоже вынести из циклов вообще и в оперативную память?
Я не думаю, что Ваши словари более 500Мб.
А работа с памятью куда эффективнее, чем кучу раз подключаться к файлам в цикле и тянуть от туда данные...

Вынести из 2х циклов 3 цикл, отвечающий за словари. И сделать массив из 3 листов-словарей.

[Alex Cones]

Я не думаю, что Ваши словари более 500Мб.

Однозначно, больше 1 кб не будет.

Может тоже вынести из циклов и в оперативную память?

Тогда, наверное придется создавать массив из стрГлистов?

Добавлено:

из 3 листов-словарей.

Почему 3-х? 9-ти! Три типа слов, 3 врианта количества букв в окончаниях. 3*3=9.
И я вот подумал, если создавать\загружать массивы, то, получается , загрузку каждого массива придется проводить написав:
SL[1].LoadFromFile(DDir+'VRB1.aef');
9 раз, пути разные.
Тогда выходит, что добавление нового типа слов (причастного, напимер) займет кучу кода. А так - дописать пункт в Кейсе и увеличить кол-во в цикле (что в скором времени я собираюсь тоже грузить из файла, достигая тем самым полной динамичности).

[Izhic]

Тогда, наверное придется создавать массив из стрГлистов?

Думаю да, это и хотел сказать

И ещё, если слова в словарях отсортированы, можно получать их
методом деления пополам.
Что-то вроде:
Ищем Ц (АЯ)->(Р-Я)->(Ф-Я)->(ХЦ)->Ц
Чтобы не думать, можете запихать в БД,как вариант

Средняя Вероятность найти ln(n)(Вроде как, хотя может log2 , тогда ещё лучше) против n/2 кажется.
При 100 словах, где то в 5 раз эффективнее.(1кб/10~100слов)

ln(100)=4.6
100/2=50.

If (SL.Strings[M]=L) And (Not(H)) Then
Begin
T[i]:=J;
H:=True;
break; // Найдено же , это если не делать делением. Эффектность возрастает в x2 раза
End;

Почему 3-х? 9-ти! Три типа слов, 3 врианта количества букв в окончаниях. 3*3=9.

Может Сохранять в виде записей? Тогда 3.

Тогда выходит, что добавление нового типа слов (причастного, напимер) займет кучу кода.

1.)Don't know. Изменить на (+1) размер массив стрГлистов.
Добавить в case в вашем случае тип: наречия.
'3' поменять на Const.
------------------------------------
2.)Если оформить в виде массива частей речи, можно вообще просто добалять в масив констант новую константу. И всё повязать на размерности этого массива.
---------------------------------------
3.)Можно вообще всё в один файл в виде записей запихать.

Думаю хватит мозг разминать

[Alex Cones]

Спасибо, буду думать.