Форум «Всё о Паскале» _ Делфи _ Требуется помощь в ускорение исполнения кода
Автор: DimaPetrov 23.04.2007 9:15
Код
for i:=0 to Form1.ControlCount-1 do if (Form1.Controls[i] is Tdot) then begin v:=(Form1.Controls[i] as Tdot); v.left:=Trunc((v.real_X-X_tekmap)/Scale_tekMap); {1} v.top:=Trunc((v.real_Y-y_tekmap)/Scale_tekMap); {1}
На Form1 находится 1000 компонентов TDot. Этот цикл выполняеться за 3 секунды. Без строки {1} 1.5, без {1} и {2} милисекунды. Как это можно ускорить?
Автор: klem4 23.04.2007 18:25
Цитата
На Form1 находится 1000 компонентов TDot
А что это еще за компоненты такие ? Это экземпляры твоего собственного класса ? Так может тогда их проще объеденить в массив и проходить сразу по нему ?
Автор: hardcase 24.04.2007 0:32
Цитата(DimaPetrov @ 23.04.2007 6:15)
На Form1 находится 1000 компонентов TDot. Этот цикл выполняеться за 3 секунды. Без строки {1} 1.5, без {1} и {2} милисекунды. Как это можно ускорить?
У тебя для каждой точки происходят вычисления с плавающей точкой, а это достаточно ресурсоёмкая процедура.
А ещё, я бы сказал, что у тебя классическая задача параллелизма под данным. Если машина имеет K процессоров, то можно породить K ниток, которые преобразуют все твои точки в нужный масштаб. При большом объёме данных ускорение вычислений будет стремиться к K-раз.
Всё это было бы замечательно. Еслиб не одно НО. Left, Top - это свойства? Если да, то их изменение приводит к перерисовке точки, а это дико длительная операция (относительно элементарного деления).
Автор: volvo 24.04.2007 0:50
Пересчет Alignment-а на время цикла отключить не пробовал (я так понимаю, у тебя компоненты визуальные)?
DisableAlign;
// Здесь изменение Left/Top
EnableAlign;
Должно в принципе ускорить выполнение кода...
Автор: Sergy 26.04.2007 2:21
А вот эта
Цитата
v:=(Form1.Controls[i] as Tdot);
строчка вообще не нужна. Если уже проверил тип, то можно приводить его безусловно:
Код
v := Tdot(Form1.Controls[i])
Или без неё. Операция прямого явного приведения типа не выполняется в RunTime а сразу на этапе компиляции. Ещё компоненты эти твои надо заблокировать прежде чем менять их координаты. если компоненты собственного написания, то можно предусмотреть метод быстрого изменения координаты за одну, а не за две перерисовки. Ещё не ясно как они там взаимодействуют на форме. Так что мало данных для исчерпывающего ответа.