Текущий архив: 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.017 c