оптимизация на быстродействие

← →
RedLord (2004-07-22 17:56) [0]

всем привет
имеется код создающий 100 панелей и двигающий их по форме
(скролинг) но оттяпывающий 100 процентов мощи процессора
что можно зделать чтоб не грузить проц так сильно

var mesage:array[1..65535] of tpanel;
...
procedure TForm1.Button1Click(Sender: TObject);
var t1,t2:int64;
n:integer;
begin
t1:=GetTickCount;
for n:=1 to 100 do
begin
mesage[n]:=tpanel.create(form1);
mesage[n].top:=n*20;
mesage[n].Left:=5;
mesage[n].Height:=15;
mesage[n].Width:=200;
mesage[n].caption:=inttostr(n);
mesage[n].Parent:=form1;
end;
t2:=GetTickCount-t1;edit1.Text:=inttostr(t2);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
t1,t2:int64;
n:integer;
begin
t1:=GetTickCount;
for n:=1 to 100 do
begin
mesage[n].left:=mesage[n].Left+1;
end;
t2:=GetTickCount-t1;edit1.Text:=inttostr(t2);
end;

← →
Sandman25 © (2004-07-22 17:56) [1]

SetBounds

← →
Subdigger (2004-07-22 17:59) [2]

в цыклу
processmessages;

← →
ИдиотЪ (2004-07-22 18:03) [3]

и это все тормозит?

← →
RedLord (2004-07-22 18:27) [4]

тормозит жутко перемещение примерно на 20 шагов и комп уже не всостоянии отображать содержание панелей (играющий mp3 замолкает напроч. комп: amd 2500 512mb ddr )

← →
Subdigger (2004-07-22 18:38) [5]

2 РедЛорд
шо канкретно у тя глючит
у мя
t2:=GetTickCount-t1;edit1.Text:=inttostr(t2);
edit1.Text=78

комп=cel2000 256m

← →
RedLord (2004-07-22 21:22) [6]

to subdigger
у меня edit1.tex:=38
но нагрузка на камень сто процентов
и ничего другое в ето время уже не работает
НУЖНО РАЗГРУЗИТЬ ПРОЦ

← →
Акакий (2004-07-22 21:27) [7]

Насколько я помню
код из 100 панелей довольно легко создается на VB.Delphi - не саамый лучший вариант

← →
RedLord (2004-07-22 21:37) [8]

скорость создания не критична критична скорость передвижения

оптимизация на быстродействие Найти похожие ветки