Оптимизация процедуры

← →
Alx2 © (2002-01-03 11:21) [8]

Небольшая ремарка:
В приведенном выше варианте есть неточность: не учитывается стили, заданные в конце форматной строки. Чтобы работало корректно нужно исправить так:
Procedure GetSubText(Var K: Integer); Var S: String; Start : Integer; Begin Start := k; While (K <= len) And (Text[K] <> "[") Do inc(K); if not StopDrawing then begin S := Copy(Text, Start, K - Start); OutRect := Rect(ARect.Left+ Widths,Arect.Top+ 2 + Tops,ARect.Right,ARect.Bottom); Canvas.TextRect(OutRect,OutRect.Left,OutRect.Top,S); Widths := Widths + Canvas.TextWidth(S) + 2; StopDrawing := Widths>ARect.Right-ARect.Left; end; End;

Переменную StopDrawing делаем False в начале тела WriteText.

После некоторого анализа выяснились причины тормозов:
1. Ф-я Canvas.TextOut - медленная. Посему будет лучше, если она будет выводить только самое необходимое. Некоторый шаг к этому я сделал (use TextRect). Результат - значительное повышение скорости.
2. Копирование из одних строк в другие - довольно медленно.
Улучшаем с помощью посимвольного прохода по строке Text (видно из примера, хотя полностью копирования избегать не пришлось).

3. Присвоение Canvas.Font.Name, Canvas.Font.Size, Canvas.Font.Style etc - медленно. Нужно постараться это делать когда действительно необходимо. Для дальнейшего ускорения (этого я не делал, так как мне хватило и этого :))) можно использовать фиктивные переменные, например, FontName : String; FontSize : Integer, FontStyle : TFontStyles значения которых передавать шрифту если StopDrawing = false или, для корректной работы, передавать в конце тела процедуры WriteText в случае, если StopDrawing=true.

Но, все-таки, основной подход: - пишите на Canvas только то, что действительно будет видимым.

Оптимизация процедуры Найти похожие ветки