Счётчик времени... - Форум «Всё о Паскале»

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

Счётчик времени..., время работы программы

Vardes	10.02.2007 23:44 Сообщение #1
Пионер Группа: Пользователи Сообщений: 131 Пол: Мужской Репутация: 0	Никак не могу реализовать счётчик времени, который вычислял бы время работы программы...С компонентом Timer повозился, но что-то не помогло....

Ответов(1 - 10)

Bokul	10.02.2007 23:50 Сообщение #2
Гуру Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11	Смотри в сторону WinApi функции gettickcount. Вот пример, но для другого компилятора. А вот документация . -------------------- Лао-Цзы : Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.

volvo	10.02.2007 23:53 Сообщение #3
Гость	Как замерить время выполнения программы ? (все, что подходит для FPC, подходит и для Дельфи)

Bokul	11.02.2007 0:17 Сообщение #4
Гуру Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11	Ухты, апргрейд на сайте, класно Сообщение отредактировано: Bokul - 11.02.2007 0:18 -------------------- Лао-Цзы : Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.

Vardes	11.02.2007 0:21 Сообщение #5
Пионер Группа: Пользователи Сообщений: 131 Пол: Мужской Репутация: 0	Цитата(Bokul @ 10.02.2007 19:50) Смотри в сторону WinApi функции gettickcount. Вот пример, но для другого компилятора. А вот документация . До WinApi функций мне ещё далеко...мне бы в обычных компонентах разобраться...А более простой выход есть?

Bokul	11.02.2007 0:30 Сообщение #6
Гуру Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11	Ну зайди же по ссылки volvo. Там все доступно написано, тем более что само измерение занимает 2 строчки кода.. -------------------- Лао-Цзы : Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.

Vardes	11.02.2007 1:02 Сообщение #7
Пионер Группа: Пользователи Сообщений: 131 Пол: Мужской Репутация: 0	Да ссылку я после увидел...Всё получается, только вот не получается в формате времени вывести...Почему-то когда пишешь так ....Caption:=TimeToStr(Duration)....результат выводится нулями...

volvo	11.02.2007 1:05 Сообщение #8
Гость	Погоди. А Duration у тебя что, типа TDateTime? Какой способ ты выбрал?

Vardes	11.02.2007 1:08 Сообщение #9
Пионер Группа: Пользователи Сообщений: 131 Пол: Мужской Репутация: 0	Млин, я уже запутался...нет не TDateTime,хотя и с ним я пробовал.Я Cardinal брал.... Сообщение отредактировано: Vardes - 11.02.2007 1:15

Vardes	11.02.2007 1:38 Сообщение #10
Пионер Группа: Пользователи Сообщений: 131 Пол: Мужской Репутация: 0	Я так понимаю, что теперь милисекунды перевести в формат времени (процедурку написать) и всё будет решено?

volvo	11.02.2007 1:54 Сообщение #11
Гость	Не надо ничего писать... Все уже написано: Var Duration: Cardinal; ... Caption := FormatDateTime('h "hours" n "minutes" s"."z "seconds"', Duration/86400000); и будет тебе время с точностью до миллисекунд...

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0