[Setup_007]

Подскажите что можно придумать...Надо чтобы при нажатии кнопки начался отчет реального времени (с нуля) В дальнейшем это время будет использоваться в формуле вычисления скорости. Я сначала сделал через таймер - поставил в него переменную t и он работал как счетчик t:=t+1. Но эта идея не подходит, возможны какие-нибудь другие варианты?

[lmikle]

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

Подскажите что можно придумать...Надо чтобы при нажатии кнопки начался отчет реального времени (с нуля) В дальнейшем это время будет использоваться в формуле вычисления скорости. Я сначала сделал через таймер - поставил в него переменную t и он работал как счетчик t:=t+1. Но эта идея не подходит, возможны какие-нибудь другие варианты?

Надо сделать просто засечку времени при нажатии кнопки, потом вторую и посчитать разницу.

Код:

type
  TForm1 = class(TForm)
  ...
    TBegin : TDateTime;
  end;

procedure TForm1.Button1Click(Sender : TObject);
begin
  TBegin := Now;
end;


procedure TForm1.Button2Click(Sender : TObject);
var
  Secs : Integer;
begin
  Secs := SecondsBetween(TBegin,Now);
  ShowMessage('Секунд между 2мя событиями: '+ IntToStr(Secs));
end;