Секундомер

← →
explorer (2003-09-03 08:37) [0]

Мастера!
Можно ли с помощью стандартных компонент реализовать визуально, секундомер (старт с 00:00:00 и на определенное время)?

← →
Palladin (2003-09-03 08:52) [1]

TTimer, если он там есть

← →
explorer (2003-09-03 09:03) [2]

он то есть...
а как с его помощью на форме сделать секундомер?

← →
Zergling (2003-09-03 09:26) [3]

Код простейший. Про высшее образование берут сомнения.

var
H, M, S: Byte;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(S);
if S = 60 then
begin
S := 0;
Inc(M);
if M = 60 then
begin
M := 0;
Inc(H);
if H = 24 then H := 0;
end;
end;
Caption := IntToStr(H) + ":" + IntToStr(M) + ":" + IntToStr(S);
end;

← →
Palladin (2003-09-03 09:35) [4]

Высшее сельско-хозяйственное, таймер на доильные аппараты надо.

← →
Anatoly Podgoretsky (2003-09-03 09:39) [5]

Это операция вычитания из конечного времени текущего времени.

← →
explorer (2003-09-03 09:55) [6]

>Zergling ©
спабки за код, но нужна была ИМЕННО стандартная КОМПОНЕНТА.
Просто думал, что это где-то реализованно уже.

ЗЫ. Думаю, что на главную страницу этого сайта надо повесить одну хорошую заповедь: "Не суди и судим не будешь!".

← →
Zergling (2003-09-03 11:30) [7]

Каков вопрос, таков и ответ :)
> нужна была ИМЕННО стандартная КОМПОНЕНТА.
Так бы сразу и спросил.

← →
Palladin (2003-09-03 11:33) [8]

Разве реализовано не при помощи TTimer? TTimer разве не стандартная? А что такое тогда стандартная?

← →
Дмитрий (2003-09-03 12:00) [9]

To Explorer:

Присоединюсь к вышесказанному: если, парень, у тебя D7, то после установки ,если правильно установил, появится вкладка панели "System", где и располагается самым первым компонент Timer! Use It!

← →
VAleksey (2003-09-03 12:05) [10]

← →
explorer (2003-09-03 12:05) [11]

>Palladin ©
>Дмитрий
у RxLib есть компонента RxClock.
Вот и решил узнать, может в стандартном наборе компонент поставляемых с Delphi есть что-то подобное (кроме TTimer)с секундомером. :)

← →
Anatoly Podgoretsky (2003-09-03 12:09) [12]

Секундомер Найти похожие ветки