[znickolai84]

Подскажите пожалуйста, как посчтитать время (в сек) между выбором пользователя radiobutton и нажатие на кнопку button.

я делал так:

Код:

procedure TForm1.Button1.OnClick(Sender: TObject);
begin
 DecodeTime(StartTime, H1, M1, S1, MS1);
 DecodeTime(FinishTime, H2, M2, S2, MS2);
   x1:=(m1*60)+s1;
   x2:=(m2*60)+s2;
   t1:=(x2-x1);
end;
//////////////////////////////////////////////////
//НазначитьStartTime1 FinishTime1 ->
procedure TForm1.Activation(Sender: TObject);
begin
starttime:=time;
end;


procedure TForm1.RadiobuttonOnClick(Sender: TObject);
begin
Finishtime:=time;
end;

Admin: Пользуемся тегами!

Причем если с одной RadioButton, то все вроде работает, но у меня их 18!
Если тоже самое сделать для других RadioButton, то уже время считает не правильно, появляется минус (-)
Причем, у меня на форме 3 вопроса, где
1 вопрос - 6 вариантов ответа (можно выбрать только 1 любой из них)

Жду Ваших сообщений, господа программисты!

[Thrasher]

Вот тут подобный вопрос рассматривался. Механизм тот же, а реализация уже будет другая.

[lmikle]

Тут стоит вопрос " а что конкретно тебе надо?"
Время между первым выбором радиокнопки и надатием батона или время после последнего выбора и батоном. Или для каждой радиокнопки.
Реализация будет разная, хотя принцип один - при щелчке по радиобатону засекаем время, при нажатии кнопки высчитываем скол ко времени прошло. возможно придется обвеситься флагами - в зависимости от задачи. Да, и загляни в описание модуля DateUtil, что бы не заниматься декодированием времени...