Можно ли ускорить выполнение этого кода?

[Velross]

Задача такая:
В БД, по мимо прочих, имеются поля: № листа (max. 100), № стороны листа (1 или 2), № карточки (1 или 2), необходимо организовать экспорт записей в word-шаблон в порядке значений в этих полях, т.е.:
1 1 1
1 1 2
1 2 1
1 2 2
2 1 1
..........
100 2 2
Все выбранные для экспорта записи я загоняю в двухмерный массив, где переменная CountRecordAll отвечает за кол-во записей в первой размерности массива, вторая размерность постоянна - 35 записей.
Для вывода на экспорт использую такую конструкцию, но она работает слишком медленно.

Примечание: в массиве на 25 месте находиться значение №листа, на 26 - №стороны, на 27-№карточки.

PHP код:

for i:=1 to 100 do begin
  for y:=1 to 2 do begin
    for z:=1 to 2 do begin
      for d:=0 to CountRecordAll-1 do begin
      if (mas_kartoteka[d][25]=IntToStr(i)) and (mas_kartoteka[d][26]=IntToStr(y)) and (mas_kartoteka[d][27]=IntToStr(z)) then
      begin
        if CreateWord then begin
        VisibleWord(false);
        if OpenDoc(SetDir+'\Шаблоны\'+ComboBoxShablon.Text) then begin
        ................................................................
        ................................................................       
        SaveDocAs(SetDir+'\Картотека\'+IntToStr(i)+IntToStr(y)+IntToStr(z)+'.doc');
        CloseWord;
        break;
        end;
        end;
      end;
      end;
    end;
  end;
end; 


Если знаете как ускорить код, подскажите пожалуйста.

[fbus]

используй ассемблерные вставки

[netrino]

Можно циклы развернуть, это должно поднять быстродействие. Например те, что два раза выполняются убрать и расписать вручную, а тот что 100 написать как до 50 и продубрировать то что внутри. Это увеличит код программы, зато должно поднять быстродействие. также в

if (mas_kartoteka[d][25]=IntToStr(i)) and (mas_kartoteka[d][26]=IntToStr(y)) and (mas_kartoteka[d][27]=IntToStr(z)) then

думаю лучше будет делать не IntToStr над i, а StrToInt над mas_kartoteka, так как целые сравниваются быстрее чем строки, а преобразование что из целого в строку, что из строки в целое примерно одинаково

[Velross]

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

Можно циклы развернуть, это должно поднять быстродействие.
....
думаю лучше будет делать не IntToStr над i, а StrToInt над mas_kartoteka,

Спасибо за совет, попробую.