[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 любой из них)

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