Есть ли в смысл заменять процедуру Sleep() на некую самописную функцию Sleeping()?

[Illusiony]

В delphi имеется функция sleep()
Ее вызов заставляет программу не просто ожидать выполнение кода, а фактически программа ведет себя как "зависшая", и не позволят в это время сделать ничего.

А что если сделать такую функцию?:

function sleeping(time:integer):integer;
begin
  Form1.tmr3.interval:=time;
Form1.tmr3.enabled:=True;
end;

procedure TForm1.tmr3Timer(Sender: TObject);
begin
tmr3.enabled:=false;
end;

Это позволит не "зависать" программе и совершать псевдопараллельные действия, например параллельно с задержкой какого то действия обновлять секундный таймер на форме.

В чем + и - обоих методов?
Интересует поведение с интервалами от 100 миллисекунд до десятков.

Хотя так не получится .
чтобы sleeping работала как функция , так как для каждого вызова различный код должен быть в таймере (

[FaTaL]

А что именно Вам нужно? Для параллельности есть потоки.

[Serge_Bliznykov]

первое. если Вам в коде нужно "заморозить" выполнение на какое-то время, то, скорее всего, Вы выбрали неверную реализацию и нужно просто переписать логику работу, используя таймер. Это нормальное решение проблемы.

Но, есть и ненормальное. Вполне можно сделать паузу в выполнении программы, но при этом программа будет вести себя не как зависшая, а просто как программа (правда, ресурсы процессора оба будет "кушать" немилосердно).
для этого нужно просто выполнять цикл, столько, сколько нужно, но в цикле делать Application.ProcessMessages.
ну, например, где-то в коде стоит Sleep(5000);
пишем вместо этого такой цикл:

t:=0;
while t<5000 do begin
  Application.ProcessMessages
  Inc(t, 100);
  Sleep(100);
end;

// Внимание, очевидно, что время задержки будет примерное, т.е. пауза будет не точно на 5000 мс!


вот и всё!

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

А что именно Вам нужно? Для параллельности есть потоки.

да, с этим полностью согласен!

[Illusiony]

Да я использую таймеры чтобы выполнялись другие действия пока задержано данное действие.

Я просто сперва подумал что можно сделать функцию вместо sleep впихнуть туда только 1 таймер и использовать его несколько раз где нужно использовать задержку.
Но позже осознал что так не получится.

А с потоками, это еще больший гемор наверное переписывать то что уже есть.
И так уже почти 4к строк моего "быдлокода". Довольно трудно уже разбираться.

t:=0;
while t<5000 do begin
  Application.ProcessMessages
  Inc(t, 100);
  Sleep(100);
end;

Это можно запихнуть в функцию?
Т.е. тут получается каждые 100 миллисекунд будет отдаваться некоторое время на другие действия в программе?

[FaTaL]

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

Т.е. тут получается каждые 100 миллисекунд будет отдаваться некоторое время на другие действия в программе?

Да. Но только я не понимаю зачем Вам это нужно?

[evg_m]

и ДА, и НЕТ.
ДА потому-что в Application.ProcessMessage ВОЗМОЖЕН (но не гарантирован) приход сообщения от таймера.
И соответственно будет передано управление на соответствующий OnTimer
НЕТ возврат из OnTimer только по завершению этой процедуры. (что может составить гораздо больший интервал чем 100мс).
и после возврата программа (ВСЯ!!!) будет спать еще 100 мс. (sllep(100);

[Illusiony]

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

Да. Но только я не понимаю зачем Вам это нужно?

Например, мне нужно задержать выполнение основного кода на 5 секунд и параллельно выводить секундные часики.
Иначе часики опоздают на 5 секунд и все это время не будут отображаться тикание.

На самом деле все сложнее, это гипотетический пример.

[FaTaL]

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

Например, мне нужно задержать выполнение основного кода на 5 секунд и параллельно выводить секундные часики.
Иначе часики опоздают на 5 секунд и все это время не будут отображаться тикание.

На самом деле все сложнее, это гипотетический пример.

Ну так кидай свой код в отдельный поток, где и вызывай для него Sleep(5000), при этом твои часики в основном потоке будут нормально ходить.

[Illusiony]

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

Ну так кидай свой код в отдельный поток, где и вызывай для него Sleep(5000), при этом твои часики в основном потоке будут нормально ходить.

Я с потоками никогда ничего не делал, а код у меня разросся до 4к строк уже.

[Аватар]

потоками никогда ничего не делал

Дык время пришло, когда-то нужно начинать