Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.12.14;
Скачать: [xml.tar.bz2];

Вниз

GetTickCount в Turbo Pascal 7.0   Найти похожие ветки 

 
Denis__ ©   (2008-11-07 12:17) [0]

Собственно, сабж. Нужно для проверки времени выполнения операций.

k := GetTickCount;
//.........
k := GetTickCount - k;

Как сделать что-то подобное в TP7?
Или я не правильно делаю?


 
Vlad Oshin ©   (2008-11-07 12:26) [1]

gettime


 
Vlad Oshin ©   (2008-11-07 12:28) [2]

а там еще есть прерывания, если чистый dos
0х1С - юзерское (18.3 раза в секунду)
и кажется 0х08 системное


 
Denis__ ©   (2008-11-07 12:31) [3]

А что возвращает GetTime? Просто нет сейчас под рукой ничего. Ни Паскаля, ни учебников.


 
Palladin ©   (2008-11-07 12:35) [4]

ничего не возвращает, это процедура
procedure GetTime(var Hour, Minute, Second, Sec100: Word);
unit Dos


 
Denis__ ©   (2008-11-07 12:41) [5]

Спасибо. Туплю я:) отвык от интернета. Да и не думал что есть что-то по паскалю :) Порылся, нашел все что нужно. Спасибо за ответы.


 
han_malign ©   (2008-11-07 13:26) [6]

http://ru.wikipedia.org/wiki/Rdtsc



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.12.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
15-1223026051
Виталий Глуниц
2008-10-03 13:27
2008.12.14
Премирование программистов


15-1223464331
Поросенок Винни-Пух
2008-10-08 15:12
2008.12.14
в копилку опыта


15-1223885552
Zlodey
2008-10-13 12:12
2008.12.14
Помогите с формулировкой


2-1225443234
Александиров
2008-10-31 11:53
2008.12.14
Работа со звуком в Turbo Pascal 7.0


1-1204016883
Tack
2008-02-26 12:08
2008.12.14
Блокировать попытки приложения выйти на передний план





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский