Главная страница
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.015 c
3-29770
Sherbacov
2003-02-17 18:00
2003.03.10
Обновление у клиентов


7-30163
Drex
2003-01-08 09:27
2003.03.10
Как проверить наличие в системе портов LPT1 и LPT2 ?


1-29952
@_Piotr
2003-02-27 15:36
2003.03.10
Имя компонента в процедуру для обработки???


1-29851
VIB
2003-02-28 14:03
2003.03.10
Написание компонентов


6-29989
2Ksion
2003-01-20 06:38
2003.03.10
Вопросы по tWebBrowser