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

Вниз

Подсчет времени выполнения процедуры   Найти похожие ветки 

 
wam   (2003-02-16 20:35) [0]

Вроде видел такие функции - Запускаешъ первую, потом к-л код, потом вторая выдает время выполнения этого к-л кода. Да давно и забыл.


 
MAN-In-RED ©   (2003-02-16 21:04) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
Tm_Start,
Tm_End :Integer;
x,y :Integer;
begin
Tm_Start := GetTickCount; ///

for y:=0 to FORM1.Height do
for x:=0 to FORM1.Width do
Form1.Canvas.Pixels[x,y] := clRed;

Tm_End := GetTickCount; ///
ShowMessage(IntToStr(Tm_End-Tm_Start)); ///
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.016 c
1-5576
asafr
2003-02-18 15:08
2003.03.03
BlockRead, BlockWrite - забавную штуку обнаружил.


4-5927
Evgeniy Startsev
2003-01-15 13:11
2003.03.03
ClassName


7-5901
Disraptor
2003-01-02 19:30
2003.03.03
Народ подскажите как записать в реестрее двоичное значение...


1-5644
lirjin
2003-02-20 14:10
2003.03.03
Как обратиться к компонентам через индексы из модуля другой формы


8-5672
AlekseyK
2002-11-16 11:21
2003.03.03
Scroll на image