Delphi

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Аналог KillWatcher на Delphi https://www.cyberforum.ru/ delphi/ thread11781.html Приветствую! Мне заказали программу, суть которой следующая: у пользователя в организации есть папка с открытым общим доступом. В нее разные члены этой организации скидывают разные файлы, в большинстве случаев это doc, xls, exe, mp3 и другие. Итак, ему впадлу каждые пять минут открывать проводник, и поэтому он заказал мне эту прогу. Он хочет, чтобы прога мониторила все изменения, происходящие в...	Почему не отображается нормально текст? Delphi Я скопировала в файл .rtf рисунок.И откомпилировала файл справки. До рисунка русский текст отображался нормально, а после встаки рисунка вместо текста - иероглифы. В чем дело?:wall:
Delphi Как открыть Word из delphi7 https://www.cyberforum.ru/ delphi/ thread11713.html Mне нужно открыть Word программно из delphi7.Как это сделать?:bravo:	Delphi Как импортировать нестандартную DLL https://www.cyberforum.ru/ delphi/ thread11651.html Ну собственно вопрос сформулировал. С импортом стандартных билиотек вроде всё ясно. Есть несколько написаных мной dll-ок на assme ,имеем .dll, .lib, на delphi 7 пишу не давло, а без них как без рук. Если есть хоть мысли по этому поводу оставляйте
Delphi маска файлов необходимо найти в директории только граффические файлы ищи вот таким образом маска . все файлы FindFirst(localgraph+'\.',faAnyFile+(NOT faDirectory),SR) какую маску нужно указать это чтоб найти только графические файлы gif jpeg png bmp ?	Delphi Не меняется поле "printed" Excel/Word документа! Почему? Доброго времени суток! Уважаемые программисты, столкнулся с проблемой очистки полей Word документа, а именно: поле "Printed" которое можно посмотреть по пути - Файл -> Свойства -> вкладка Статистика. Мне необходимо либо изменить данное поле на текущую дату, либо убрать вовсе. Поиск в интернете не дал позитивных результатов, вернее есть примеры считывания данного поля, но нет примеров изменения... https://www.cyberforum.ru/ delphi/ thread11478.html
Delphi делфя7, папка Какой код можно написать чтобы по нажатию кнопки программа показывала например в memo1 полный путь к открытой в данный момент папке? https://www.cyberforum.ru/ delphi/ thread11402.html	CDA файлы Delphi Нужно получить время проигрывания .cda файла. Каким методом? Добавлено через 1 час 44 минуты 42 секунды Вопрос снят с повестки дня! Добавлено через 21 минуту 13 секунд Админ пример скинуть?
Delphi Delphi 7 и копирование хочу написать в свою везитную карточку код чтоб программа эта по нажатию кнопки копирывала бы себя в папку которая открыта. Пример нахожусь в папке панку, нажал на кнопку и работащая программа скопирывала бы себя в эту папку. https://www.cyberforum.ru/ delphi/ thread11296.html	Delphi приостановка выполнения процедуры https://www.cyberforum.ru/ delphi/ thread11189.html задача состоит в следующем выполняется цикл в котором проверяется условие если условие истенно то отобрадается форма а цикл должен быть остановлен ро тех пор пока форма не закроется (реакция пользователя) иными словами должно получиться что то вроде messagedlg только с произвольной формой как это реализовать?
Параллельный запуск 2-х программ. Delphi Подскажите, пожалуйста: нужно при запуске своей программы, запускать еще и другую программу с "винта". Как это можно реализовать? Хочу код.	Delphi dll динамическое подключение https://www.cyberforum.ru/ delphi/ thread11161.html Задача вот какая, нужно подключить длл но динамически if fileexist('mydll') then connect else no connect Как это можно сделать?

SBARTACO

14.06.2011, 13:17

Пауза процедуры - Delphi - Ответ 1757939

14.06.2011, 13:17. Показов 53958. Ответов 16

Метки (Все метки)

Ответ

Сообщение от pivogol

Я тоже раньше пользовался аналогичным алгоритмом для паузы, только для того чтобы программа была более добра к другим процессам винды я использовал sleep(10). Но для тех случаев, когда нужна точная пауза, этот алгоритм не подходит, т.к. команда Application.ProcessMessages каждый раз будет выполняться разное неизвестное количество времени (особенно при загруженности процессора).
Я провёл исследования, при необходимой паузе 10 секунд алгоритм даёт погрешность 0.75 секунды (при нагруженном процессоре возможно будет больше). Поэтому если нужна точная пауза, лучше использовать такой алгоритм:

Delphi

procedure pause(p:byte);  // p - пауза в секукндах
var pa1:ttime;
begin
  pa1:=encodetime(0,0,p,0)+time;
  repeat
    application.processmessages; 
    sleep(10);
  until time>=pa1;
end;

Такой алгоритм у меня дал погрешность 0 миллисекунд при тестируемой паузе 10 секунд.

Спасибо, хорошая процедура, но не работает так как надо, если даже до 255, то в функции
encodetime(0,0,p,0) p не должно превышать 60 секунд:

Delphi

procedure pause(p:integer);  // p - в миллисекундах
var pa1:real;
begin
if p<1000 then begin
pa1:=encodetime(0,0,0,p)+time;
end
else
begin
p:=ROUND(p/1000);
pa1:=encodetime(0,0,p,0)+time;
end;
  repeat
    application.processmessages;
   sleep(10);
  until time>=pa1;
end;

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку "DELPHI".

Вернуться к обсуждению:
Пауза процедуры Delphi

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

14.06.2011, 13:17

Готовые ответы и решения:

Пауза в потоке
Нужна помощь. В программе работают 2 потока одновременно, посылают запросы в сеть, могут получать...

Пауза потоков
Доброе утро , форумчане! У меня есть 2 потока 1 Главный - MonikThread 2 Второстипенный -...

Пауза в процедуре
Привет всем возникла задачка нужно организовать паузу при выполнении цикла сам цикл: procedure...

Пауза в программе.
Здравствуйте. Подскажите пожалуйста, как сделать паузу на выполнение всей программы, то есть если...

	14.06.2011, 13:17

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

14.06.2011, 13:17

Помогаю со студенческими работами здесь

Пауза в коде
Как сделать паузу в коде: procedure Tindex.Button_startClick(Sender: TObject); var s:integer;...

Пауза в выполнении программы
Подскажите пожалуйста как выполнить паузу при заполнении матрицы, то есть после заполнения каждой...

Пауза в процедуре, остановка
Есть процедура, внутри процедуры цикл делает свои дела. Возможно ли поставить процедуру на...

Пауза в выводе инфы в Memo
Доброго времени суток всем. Есть у меня такая задача. В компонент Memo выводятся данные с порта...

Новые блоги и статьи
Как обучить нейросеть создания картинок на Python bytestream 24.01.2025 В эпоху цифровых технологий искусственный интеллект становится неотъемлемой частью творческого процесса. Особое место в этой области занимает разработка и обучение нейронных сетей для создания. . .	Как обучить нейросеть генерации текста на Python bytestream 24.01.2025 В современном мире искусственный интеллект и машинное обучение становятся неотъемлемой частью многих технологических решений. Одной из наиболее интересных и востребованных задач в этой области. . .	Машинное обучение на Python bytestream 24.01.2025 Введение в машинное обучение на Python Машинное обучение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, которая позволяет компьютерным системам. . .	Как удалить вирус-майнер с компьютера hw_wired 24.01.2025 Вирусы-майнеры стали одной из наиболее серьезных угроз для пользователей компьютеров. Эти вредоносные программы тайно используют вычислительные ресурсы зараженного устройства для добычи криптовалюты. . .	Что такое веб-сервер, для чего он нужен и как работает bytestream 24.01.2025 В современную эпоху цифровых технологий веб-сервер является фундаментальным компонентом интернет-инфраструктуры, обеспечивающим функционирование множества онлайн-сервисов и веб-сайтов. Этот. . .	Как в цикле for перебрать все элементы в словаре в Python bytestream 24.01.2025 Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .
Как отменить rebase в Git hw_wired 24.01.2025 Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .	Как поменять цвет input placeholder с помощью CSS bytestream 24.01.2025 В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .	Как перебрать все значения в перечислении (enum) в C# bytestream 24.01.2025 Перечисление (enum) в языке программирования C# представляет собой специальный тип данных, который позволяет определить набор именованных констант. Этот мощный инструмент особенно полезен, когда. . .	Как обойтись без проверки на null, чтобы избежать NullPointerException в Java bytestream 24.01.2025 NullPointerException (NPE) является одним из самых распространенных исключений в Java, создающих серьезные проблемы при разработке программного обеспечения. Данное исключение возникает при попытке. . .	Что лучше использовать в href ссылок в JavaScript: "#" или "javascript:void(0)" bytestream 24.01.2025 При разработке веб-приложений важную роль играет правильное использование HTML-ссылок в сочетании с JavaScript. Одним из ключевых аспектов является выбор корректного значения атрибута href для. . .	Как узнать индекс элемента списка по его значению в Python hw_wired 24.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только манипулировать элементами списка, но и определять их точное местоположение. Индекс элемента представляет собой. . .

Наверх