Время затраченное на выполнения события(ий)

@XaKO · Регистрация: 23.10.2012

Author24 — интернет-сервис помощи студентам

Есть ли функция для подсчета времени, затраченного на выполнение действй в 1 или нескольких процедурах?

@FIL · 18.12.2012, 11:31

GetTickCount

@XaKO · 18.12.2012, 11:39 **[ТС]**

а внутри что написать?

Добавлено через 6 минут
Скажем, мне нужно посчитать сколько времени длится событие в баттоне1, веббраузере1 и баттоне 2

@FIL · 18.12.2012, 11:40

Внутри чего?
Запоминаешь значение GetTickCount в начале процедуры и в конце. Разница и будет - время, затраченное на ее выполнение.

@XaKO · 18.12.2012, 11:52 **[ТС]**

все понял,спасибо

Добавлено через 8 минут
Блин, теперь не выполняются действия в этой процедуре. ВОт код:

Delphi

procedure Tform40.EffectButton2Click(Sender: TObject);
 var i:integer;
tim,tim1,tim2:integer;
begin
 
 tim:=GetTickCount;
  load:=0;
  nick:=edit1.Text;
  fg:=1;
  label1.Caption:='';
  memo1.Clear;
  memo2.Clear;
  memo3.Clear;
  for i:=0 to ComponentCount - 1 do
  if (Components[i] is TEdit)and((Components[i] as TEdit).tag = 0) then
  (Components[i] as TEdit).Clear;
  for i:=0 to ComponentCount - 1 do
  if (Components[i] is TtransEdit) then
  (Components[i] as TtransEdit).Clear;
  try
    if combobox1.ItemIndex=0 then
    idhttp1.head('http://worldoftanks.ru');
    if combobox1.ItemIndex=1 then
    idhttp1.head('http://worldoftanks.eu');
    if combobox1.ItemIndex=2 then
    idhttp1.head('http://worldoftanks.com');
    if combobox1.ItemIndex=3 then
    idhttp1.head('http://worldoftanks-sea.com');
  button3.click;
  effectbutton3.Enabled:=true;
  timer3.enabled:=true;
  except
  showmessage('Íåò ñîåäèíåíèÿ ñ Èíòåðíåòîì èëè íåäîñòóïåí ñåðâåð WoT');
  end;
 
 
      tim1:=GetTickCount;
    tim2:=tim1-tim;
    edit1.text:=inttostr(tim2);
end;

@volvo · 18.12.2012, 11:59

То есть, до добавления строк с GetTickCount всё работало, а после - перестало? Значит, так "хорошо" работало да этого. Скажи спасибо, что обнаружил эту проблему сейчас.

НЕ должно добавление тех строк, что ты добавил, влиять на работоспособность кода. Никак.

@FIL · 18.12.2012, 12:01

tim,tim1,tim2: Longint;

Fix777 · 18.12.2012, 12:02

Delphi

var Start, Finish, TimeLen : Cardinal; TimeL : Double;
 
 
 
 Start := GetTickCount; // Засекам время
 
[B]Процедура..[/B]
 
 Finish := GetTickCount; // Засекаем окончание
 TimeLen := Finish - Start; // в миллисекундах
 TimeL := TimeLen / 1000; // в секундах и тысячных секунд
 TimeLen := TimeLen div 1000; // в секундах
 ShowMessage( 'Время:  ms:' + IntToStr(TimeLen) + '  ss:' + FloatToStr(TimeL) + '  s:' + IntToStr(TimeLen) );

@XaKO · 18.12.2012, 12:16 **[ТС]**

Попробовал твоим кодом, вот что сделал

Delphi

procedure Tform41.EffectButton2Click(Sender: TObject);
var i:integer;
begin
Start := GetTickCount; // Засекам время
  load:=0;
  nick:=edit1.Text;
  fg:=1;
  label1.Caption:='';
  for i:=0 to ComponentCount - 1 do
  if (Components[i] is TEdit)and((Components[i] as TEdit).tag = 0) then
  (Components[i] as TEdit).Clear;
  for i:=0 to ComponentCount - 1 do
  if (Components[i] is TtransEdit) then
  (Components[i] as TtransEdit).Clear;
  try
    if combobox1.ItemIndex=0 then
    idhttp1.head('http://worldoftanks.ru');
    if combobox1.ItemIndex=1 then
    idhttp1.head('http://worldoftanks.eu');
    if combobox1.ItemIndex=2 then
    idhttp1.head('http://worldoftanks.com');
    if combobox1.ItemIndex=3 then
    idhttp1.head('http://worldoftanks-sea.com');
  button3.click;
  effectbutton3.Enabled:=true;
  timer3.enabled:=true;
  except
  showmessage('No connection to the Internet or the server is not available WoT');
  end;
  Finish := GetTickCount; // Засекаем окончание
 TimeLen := Finish - Start; // в миллисекундах
 TimeL := TimeLen / 1000; // в секундах и тысячных секунд
 TimeLen := TimeLen div 1000; // в секундах
 ShowMessage( 'Время:  ms:' + IntToStr(TimeLen) + '  ss:' + FloatToStr(TimeL) + '  s:' + IntToStr(TimeLen) );
end;

Переменные объявил как глобальные, и ничего не показывает, не резуультат действий ни showmessage

Fix777 · 18.12.2012, 12:55

ShowMessage Должен быть в любом случае.. Значит у тебя что то не завершается..
Ты вообще пробуй с начало на чем то попроще.. и что Реально работает)..

Типа..

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 var Start, Finish, TimeLen : Cardinal; TimeL : Double;
 begin
 
 
 Start := GetTickCount; // Засекам время
 
 Sleep(3000); // То что высчитываем...
 
 Finish := GetTickCount; // Засекаем окончание
 TimeLen := Finish - Start; // в миллисекундах
 TimeL := TimeLen / 1000; // в секундах и тысячных секунд
 TimeLen := TimeLen div 1000; // в секундах
 ShowMessage( 'Время:  ms:' + IntToStr(TimeLen) + '  ss:' + FloatToStr(TimeL) + '  s:' + IntToStr(TimeLen) )
end;

Работает? Работает...

Смотри лучше свою процедуру.. что в ней не так..

@XaKO · 19.12.2012, 10:19 **[ТС]**

в ней все работало и счиатло могу проект скинуть и сами попробуйте сделать
Открывать форму 40, для пробы использовать ник: xako
http://narod.ru/disk/646044660... p.rar.html

@XaKO · 21.12.2012, 09:46 **[ТС]**

Помогите, пожалуйста, а то у меня из-за этой проблемы весь проект остановился(

@FIL · 21.12.2012, 10:24

Ты в одном месте говоришь про Форму 41

Сообщение от XaKO

Попробовал твоим кодом, вот что сделал

Delphi

1	procedure Tform41.EffectButton2Click(Sender: TObject);

Переменные объявил как глобальные, и ничего не показывает, не резуультат действий ни showmessage

, а в другом - про 40

Сообщение от XaKO

в ней все работало и счиатло могу проект скинуть и сами попробуйте сделать
Открывать форму 40, для пробы использовать ник: xako

Может в этом проблема?

@FIL · 21.12.2012, 10:50

Ну да, все работает.

Delphi

procedure Tform40.EffectButton2Click(Sender: TObject);
 var i:integer;
   Start, Finish, TimeLen : Cardinal; TimeL : Double;
begin
  Start := GetTickCount; // Çàñåêàì âðåìÿ
  load:=0;
  nick:=edit1.Text;
  fg:=1;
  label1.Caption:='';
  memo1.Clear;
  memo2.Clear;
  memo3.Clear;
  for i:=0 to ComponentCount - 1 do
  if (Components[i] is TEdit)and((Components[i] as TEdit).tag = 0) then
  (Components[i] as TEdit).Clear;
  for i:=0 to ComponentCount - 1 do
  if (Components[i] is TtransEdit) then
  (Components[i] as TtransEdit).Clear;
  try
    if combobox1.ItemIndex=0 then
    idhttp1.head('http://worldoftanks.ru');
    if combobox1.ItemIndex=1 then
    idhttp1.head('http://worldoftanks.eu');
    if combobox1.ItemIndex=2 then
    idhttp1.head('http://worldoftanks.com');
    if combobox1.ItemIndex=3 then
    idhttp1.head('http://worldoftanks-sea.com');
  button3.click;
  effectbutton3.Enabled:=true;
  timer3.enabled:=true;
  except
  showmessage('Íåò ñîåäèíåíèÿ ñ Èíòåðíåòîì èëè íåäîñòóïåí ñåðâåð WoT');
  end;
  Finish := GetTickCount; // Çàñåêàåì îêîí÷àíèå
 TimeLen := Finish - Start; // â ìèëëèñåêóíäàõ
 TimeL := TimeLen / 1000; // â ñåêóíäàõ è òûñÿ÷íûõ ñåêóíä
 TimeLen := TimeLen div 1000; // â ñåêóíäàõ
 ShowMessage( 'Âðåìÿ:  ss:' + FloatToStr(TimeL) + '  s:' + IntToStr(TimeLen) )
end;

Похоже кто-то заблудился в собственном проекте...

@XaKO · 21.12.2012, 12:09 **[ТС]**

В тот раз я не заблуждался, просто пробовал засечь время для той формы, она с тем же кодом, только оформление на английском) Фиг Знает Но Сейчас Все заработало

@XaKO · 21.12.2012, 12:12 **[ТС]**

Объясни как такое могла получится???

@FIL · 21.12.2012, 12:39

Сообщение от XaKO

Объясни как такое могла получится???

А код какой сейчас?

@XaKO · 21.12.2012, 12:45 **[ТС]**

Delphi

procedure Tform40.EffectButton2Click(Sender: TObject);
 var i:integer;
   Start, Finish, TimeLen : Cardinal; TimeL : Double;
   begin
  load:=0;
  nick:=edit1.Text;
  fg:=1;
  label1.Caption:='';
  memo1.Clear;
  memo2.Clear;
  memo3.Clear;
  for i:=0 to ComponentCount - 1 do
  if (Components[i] is TEdit)and((Components[i] as TEdit).tag = 0) then
  (Components[i] as TEdit).Clear;
  for i:=0 to ComponentCount - 1 do
  if (Components[i] is TtransEdit) then
  (Components[i] as TtransEdit).Clear;
  try
    if combobox1.ItemIndex=0 then
    idhttp1.head('http://worldoftanks.ru');
    if combobox1.ItemIndex=1 then
    idhttp1.head('http://worldoftanks.eu');
    if combobox1.ItemIndex=2 then
    idhttp1.head('http://worldoftanks.com');
    if combobox1.ItemIndex=3 then
    idhttp1.head('http://worldoftanks-sea.com');
  button3.click;
  effectbutton3.Enabled:=true;
  timer3.enabled:=true;
  except
  showmessage('Íåò ñîåäèíåíèÿ ñ Èíòåðíåòîì èëè íåäîñòóïåí ñåðâåð WoT');
  end;
    Finish := GetTickCount; // Çàñåêàåì îêîí÷àíèå
 TimeLen := Finish - Start; // â ìèëëèñåêóíäàõ
 TimeL := TimeLen / 1000; // â ñåêóíäàõ è òûñÿ÷íûõ ñåêóíä
 TimeLen := TimeLen div 1000; // â ñåêóíäàõ
 ShowMessage( 'Âðåìÿ:  ss:' + FloatToStr(TimeLen))
end;

@FIL · 21.12.2012, 12:56

Delphi

 Finish := GetTickCount; // Засекаем окончание
 TimeLen := Finish - Start; // в миллисекундах
 TimeL := TimeLen / 1000; // в секундах и тысячных секунд
 ShowMessage( 'Время:  ss:' + FloatToStr(TimeL));

@XaKO · 21.12.2012, 13:05 **[ТС]**

Все работает

@XaKO 23 / 23 / 30 Регистрация: 23.10.2012 Сообщений: 344
	21.12.2012, 12:09 [ТС]	15
	В тот раз я не заблуждался, просто пробовал засечь время для той формы, она с тем же кодом, только оформление на английском) Фиг Знает Но Сейчас Все заработало 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	21.12.2012, 12:39	17
	Сообщение от XaKO Объясни как такое могла получится??? А код какой сейчас? 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	18.12.2012, 11:31	2
	GetTickCount 0

@XaKO 23 / 23 / 30 Регистрация: 23.10.2012 Сообщений: 344
	18.12.2012, 11:39 [ТС]	3
	а внутри что написать? Добавлено через 6 минут Скажем, мне нужно посчитать сколько времени длится событие в баттоне1, веббраузере1 и баттоне 2 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	18.12.2012, 11:40	4
	Внутри чего? Запоминаешь значение GetTickCount в начале процедуры и в конце. Разница и будет - время, затраченное на ее выполнение. 1

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	18.12.2012, 11:59	6
	То есть, до добавления строк с GetTickCount всё работало, а после - перестало? Значит, так "хорошо" работало да этого. Скажи спасибо, что обнаружил эту проблему сейчас. НЕ должно добавление тех строк, что ты добавил, влиять на работоспособность кода. Никак. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	18.12.2012, 12:01	7
	tim,tim1,tim2: Longint; 0

@XaKO 23 / 23 / 30 Регистрация: 23.10.2012 Сообщений: 344
	19.12.2012, 10:19 [ТС]	11
	в ней все работало и счиатло могу проект скинуть и сами попробуйте сделать Открывать форму 40, для пробы использовать ник: xako http://narod.ru/disk/646044660... p.rar.html 0

@XaKO 23 / 23 / 30 Регистрация: 23.10.2012 Сообщений: 344
	21.12.2012, 09:46 [ТС]	12
	Помогите, пожалуйста, а то у меня из-за этой проблемы весь проект остановился( 0

@XaKO 23 / 23 / 30 Регистрация: 23.10.2012 Сообщений: 344
	21.12.2012, 12:12 [ТС]	16
	Объясни как такое могла получится??? Миниатюры 0

@XaKO 23 / 23 / 30 Регистрация: 23.10.2012 Сообщений: 344
	21.12.2012, 13:05 [ТС]	20
	Все работает 0