Главная страница
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.014 c
1-5597
Nehto
2003-02-19 20:49
2003.03.03
String & PChar


1-5589
Mika
2003-02-19 19:55
2003.03.03
Обработка события


14-5763
Afonya
2003-02-15 11:04
2003.03.03
Компонент для работы с MATLAB


14-5746
michael_b
2003-02-15 20:30
2003.03.03
Ограничение по времени


14-5817
V-Isa
2003-02-12 15:46
2003.03.03
Просмотр каталогов и файлов.