Главная страница
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.023 c
7-5872
ledzzz
2002-12-29 14:14
2003.03.03
работ с com - портом


8-5663
DimaK
2002-11-14 23:09
2003.03.03
Ребята, помогите разобраться со звуком.


1-5480
mate
2003-02-20 15:01
2003.03.03
QRRichText и RichEdit


1-5576
asafr
2003-02-18 15:08
2003.03.03
BlockRead, BlockWrite - забавную штуку обнаружил.


1-5594
Nehto
2003-02-19 19:55
2003.03.03
Kak udalit ne pustoj katalog