Timer. Считаем время работы скрипта

[bilibian]

var
  Form1: TForm1;
  i:Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=0;
  Timer1.Enabled:=True;
  Sleep(5000);
  Timer1.Enabled:=false;
  Label1.Caption:=IntToStr(i);
end;

Что я делаю не так?

[eval]

всё. а что надо то?

[bilibian]

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

всё. а что надо то?

в Label нуль

[Serge_Bliznykov]

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

в Label нуль

вообще, Вы вообще всё делаете неправильно. Если нужно получить время, то нужно запоминать время перед выполнением чего-либо, а потом брать разницу между текущим временем и запомненным.

но, что касается вашего примера, то Sleep морозит форму и таймер не срабатываете ни разу!

попробуйте, например, такой код:

var j : integer;
begin
  i:=0;
  Timer1.Enabled:=True;
  Timer1.Interval := 100;
  for j := 0 to 200 do begin
    Application.ProcessMessages;
    Sleep(25);
  end;
  Timer1.Enabled:=false;
  Label1.Caption:=IntToStr(i);
end;

p.s. но ещё раз повторю, так делать НЕ НАДО!!!!
Лучше на одной кнопке (Старт) сделайте i:=0; Timer1.Enabled:=True;
а на другой кнопке (Стоп) сделайте Timer1.Enabled:=false; Label1.Caption:=IntToStr(i);
и никаких Sleep!

[Stilet]

в Label нуль

Нада нуль??? О_о
Или надо время работы скрипта?
Если второе то:

var d:datetime;
...
d:=now;
...Работа скрипта
Label.Caption:=IntToStr(SecondsBetween(now,d))+' сек.';

[bilibian]

Stilet, не работает Ваш пример. Ошибка. Даже если

var d:datetime;

заменить на

var d:TDateTime;

Undeclared identifier: 'SecondsBetween'

[bilibian]

Пардон. В uses не указал DateUtils

Все работает. Спасибо!