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

Вниз

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

 
nap   (2003-07-02 21:05) [0]

Помогите оптимизировать кусок
p1.left:=pleft;p1.top:=ptop;
p2.left:=pleft;p2.top:=ptop;
p3.left:=pleft;p3.top:=ptop;
p4.left:=pleft;p4.top:=ptop;


 
default ©   (2003-07-02 21:09) [1]

var
MP: Array[1..4] of TRect;
i: Byte;
begin
for i := 1 to 4 do begin
MP[i].Left := PLeft;
MP[i].Top := PTop;
end;
end.


 
Юрий Зотов ©   (2003-07-02 21:35) [2]

> nap (02.07.03 21:05)

Смотря, что значит "оптимизировать". Если по скорости, то Ваш код самый быстрый и есть, оптимизировать в нем уже нечего.


> default © (02.07.03 21:09)

Уж тогда сразу TopLeft, в одно присваивание.


 
default ©   (2003-07-02 21:53) [3]

Юрий Зотов © (02.07.03 21:35)
на счёт оптимизации - абсолютно верно
сам хотел про это написать
просто догадываясь про какую оптимизацию говорил автор я и писал тот код



 
Palladin ©   (2003-07-02 22:06) [4]

мда...
я уверен что в твоей программе найдется куча мест которые просто необходимо оптимизировать или переработать, но, поверь мне, тот кусок который ты привел, наверное будет самый последний в очереди на оптимизацию, практически с любой стороны...


 
default ©   (2003-07-02 22:08) [5]

nap (02.07.03 21:05)
var
Mas: Array[1..4] of TRect;
i: Byte;
begin
for i := 1 to 4 do Mas[i].TopLeft := Point(PLeft, PTop)
end.



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
3-55399
Пубертанец
2003-06-23 13:57
2003.07.17
Проблема создания loookup-овского поля программным путем


1-55563
BillyJeans
2003-07-03 12:03
2003.07.17
Как программно вывести hint у ярлыка в трее?


3-55474
MCFire
2003-06-25 16:24
2003.07.17
Как использовать StatusBar во время SQL запроса?


14-55835
Феликс
2003-07-01 20:44
2003.07.17
Как так гарно получилось? :)


4-55907
Mix
2003-05-13 18:49
2003.07.17
Replace Resource