Я за здоровый консерватизм



Posted by Рустем Мухаметшин on January 09, 1999 at 13:45:32:

In Reply to: Рустем, не пpомоpгайте pеволюцию! posted by Аpкадий Водяник on January 09, 1999 at 08:15:49:

          Готов принять вызов на сравнительное быстродействие форм с и без "ускорения". В Вашем примере вообще говорить не очем. Вот мой вариант формы:

* Разумный поиск
while 1
  search p1 ?X
  if [success]=0
    goto end
  endif
  for i=0 to 1000
    [a i]=[a i]+X
  endfor
endwhile
:end

        Запускал в локальной, время меньше 1 сек :). Неплохо бы иметь функции получения времени хотя бы до секунд (а еще лучше до тиков :) Применение TOTAL в цикле не разумно. Одумайтесь те кто еще это делает.

        Конечно какоето ускорение в работе форм будет, но оно не оправдает потребление ресурсов. Из сообщения 406 вообще можно сделать вывод о неоправданности данной затеи. Кстати, Сергей, у
меня есть самонадеянное мнение что Ваш отчет должен исполняться секунд за 10, в заклад биться конечно не стану. Если Вы пришлете исходник отчета,  proto.rpt и файлы facts.b с прописанными фактами, acnt.a3p я мог бы попробывать.


Пpишедшие ответы: