Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

Вопрос о неоднородности скорости работы цикла   Найти похожие ветки 

 
R   (2003-02-27 09:34) [0]

Мастера вопрос такого плана есть цикл
For I:=0 To N Do begin
------
Sum:=Sum+StrToFloat(Memo1.Lines[I]);
Application.ProcessMessages
end;
Так вот вопрос я заметил что скорость выполнения цикла снижается при приближении к N/2 т.е. к середине цикла а затем от середины
до конца цикла снова возрастает. Почему это происходит ведь
команды находящиеся в теле цикла не меняются. И выполнение должно идти равномерно.


 
Digitman ©   (2003-02-27 09:52) [1]

Скорей всего, это связано с логикой работы метода, который вызывается при обращении к св-ву Memo1.Lines[]


 
REA ©   (2003-02-27 10:22) [2]

Если ты хочешь добиться скорости от вычислений, нужно убрать обработку сообщений из цикла.


 
Anatoly Podgoretsky ©   (2003-02-27 10:25) [3]

Не надо убирать, это практически не увеличивает время, правда и нужды в нем тоже нет, поскольку операция проходит практически сгновенно (Win9х/TMemo)


 
han_malign ©   (2003-02-27 10:43) [4]

Cамая длительная операция в цикле StrToFloat и его время выполнения сильно зависит от значения...


 
REA ©   (2003-02-27 10:47) [5]

Я почему то использую TextToFloat(p, e, fvExtended). Наверно быстрее.


 
han_malign ©   (2003-02-27 11:37) [6]

2 REA © (27.02.03 10:47)
SysUtils:
function StrToFloat(const S: string): Extended;
begin
if not TextToFloat(PChar(S), Result, fvExtended) then
ConvertErrorFmt(@SInvalidFloat, [S]);
end;

- реализацию TextToFloat можно посмотреть в ffmt.asm, мне разбираться влом...


 
Dms   (2003-02-27 11:41) [7]

Скорее всего, свойство .Lines[i] вызывает метод, в котором реализован какой-то тип поиска ... Возможно поиск идет с концов к середине, поэтому скорость и понижается.


 
R   (2003-02-28 01:52) [8]

Спасибо за ответы.



Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
7-30162
pfar
2002-11-27 07:32
2003.03.10
Опрос модема


1-29789
Smirnoff
2003-02-26 12:47
2003.03.10
Как сделать прогу, чтобы она запускалась в винде как сервис?


1-29881
AlexanderSK
2003-02-26 14:27
2003.03.10
VarArray - глупый вопрос


8-29963
Novichek
2002-11-20 19:07
2003.03.10
Flash


14-30035
Ketmar
2003-02-22 13:51
2003.03.10
как часто и активно вы используете в программах Assert ы?