Главная страница
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.011 c
14-5722
Дмитрий К.К.
2003-02-12 06:24
2003.03.03
Именинники 12 февраля


14-5799
jack128
2003-02-12 23:46
2003.03.03
Win2k


3-5461
nkrainev
2003-02-13 17:40
2003.03.03
Исключительная ситуация при запросе к MySQL


14-5846
Johnny Smith
2003-02-11 12:12
2003.03.03
Хотелось бы комментарии, особенно от Мазута Берегового,


8-5664
Влад2
2002-11-19 14:45
2003.03.03
Вопрос по элементарной(?) графике