Создание процедуры/функции, с независимым выполнением.

[Winexcel]

Собственно вопрос:
Есть переменная INTEGER, которая имеет начальное значение к примеру:
10000

Нужно создать процедуру/функцию или ещё что-то, что будет каждую секунду отнимать 1000 от переменной:

var
i:integer;
begin
i:=1000000;
while i>0 do begin
sleep(1000);
dec(i,1000);
end;
i:=0;
end;

Встала такая проблема:
Допустим что:
Переменная I имеет число к пример 1000000
Нужно запустить эту функцию/процедуру и затем уже выполнять другой код тут же, пример:

begin
TimeEnd;
showmessage('bb');

То есть к примеру запустится процедура и сразу же выведется сообщение, такое не возможно, но нужно как-то реализовать, кто знает как?

[Аватар]

Ни чего не понял

[Пепел Феникса]

таймер проще всего.

[evg_m]

Нужно запустить эту функцию/процедуру и затем уже выполнять другой код тут же, пример:

А какой все-таки код надо выполнять "параллельно" со счетом Dec(i,...);
1. Независимый от этого i. Тогда зачем вообще это считать (простой таймер на NN секунд оповестит нас в заданное время).
2. Зависимый от I. Например код показа этого самого i на одной из форм, в то время как сама форма(программа) занята сложными и длинными расчетами (или ждет каких-то данных из Internet).
3. другие варианты.

[phomm]

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

Нужно запустить эту функцию/процедуру и затем уже выполнять другой код тут же

Потоки. http://forum.vingrad.ru/forum/topic-60076.html

[Winexcel]

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

А какой все-таки код надо выполнять "параллельно" со счетом Dec(i,...);
1. Независимый от этого i. Тогда зачем вообще это считать (простой таймер на NN секунд оповестит нас в заданное время).
2. Зависимый от I. Например код показа этого самого i на одной из форм, в то время как сама форма(программа) занята сложными и длинными расчетами (или ждет каких-то данных из Internet).
3. другие варианты.

Вариант №2. Самое логичное будет конечно создавать таймер, но таймер придётся по видимому создавать программно на каждый поток. Собственно эта идея мне и пришла сразу в голову.

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

Потоки. http://forum.vingrad.ru/forum/topic-60076.html

Выделять поток будет не очень хорошо, тут будет очень много путаницы, так как в программе неограниченное число потоков, и если условие выполнилось:
то мы блокируем выполнение кое-какого кода на 1 час, в моём случае это:

i:=3600000

[evg_m]

Вариант №2. Самое логичное

Если расчеты (что вряд ли), то расчеты в основном потоке НЕ ДАДУТ возможности по показу чего либо (без дополнительных ухищрений!).
Если получение данные в синхронном режиме, то тоже.
Асинхронный режим. Если он поддерживается используемыми компонентами доступа. Или получение данных в доп. потоке.

+ ОДИН таймер в основном потоке, используемый для обновления ВСЕХ значений счетчиков (для всех потоков получения информации).
Вполне допустим вызов процедур объекта Ttread БЕЗ доп. синхронизации c изменением переменной (счетчика) из основного потока. ПРИ соблюдении условия внутри потоковой процедуры(Execute) данная переменная (свойство) НЕ МЕНЯЕТСЯ.

[Winexcel]

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

Если расчеты (что вряд ли), то расчеты в основном потоке НЕ ДАДУТ возможности по показу чего либо (без дополнительных ухищрений!).
Если получение данные в синхронном режиме, то тоже.
Асинхронный режим. Если он поддерживается используемыми компонентами доступа. Или получение данных в доп. потоке.

+ ОДИН таймер в основном потоке, используемый для обновления ВСЕХ значений счетчиков (для всех потоков получения информации).
Вполне допустим вызов процедур объекта Ttread БЕЗ доп. синхронизации c изменением переменной (счетчика) из основного потока. ПРИ соблюдении условия внутри потоковой процедуры(Execute) данная переменная (свойство) НЕ МЕНЯЕТСЯ.

Объясню программно:

type
 TWorkBot = class(TThread)
 ...
  public
  blockrazdel:integer;//переменная при включении потока = 0
..  
end;
implementation

procedure TWorkBot.Execute;
begin
if blockrazdel=0 then
вызов процедуры

end;
end.

Вот нужно сделать счётчик, в проуедуры если возникло некое условие, то

blockrazdel:=3600000

и запускается таймер или ешё что для того чтобы из этой переменной каждую секунду вычитать 1000. И параллельно после того как запустится процесс вычитания из blockrazdel, выполнять другой код в потоке.

[evg_m]

и запускается таймер или ешё что для того чтобы из этой переменной каждую секунду вычитать 1000. И параллельно после того как запустится процесс вычитания из blockrazdel, выполнять другой код в потоке.

Это ВАША идея реализации какой-то неизвестной НАМ задачи. Чтобы получить правильный ответ (ДРУГУЮ реализацию той же задачи) надо описать задачу здесь. (без таймеров, процедур и переменных).
Сага о X,Y,Z
X исходная задача
Y ваша куча таймеров и переменных
Z1 мой один таймер и ...
Z... другие предложения

Есть куча потоков, которые что-то делают, надо следить за временем их выполнения и если они трудятся очень долго, то менять их поведение.

так должно выглядеть ваше описание задачи. По хорошему даже слово поток не должно звучать. А что-то делают наоборот должно быть конкретизировано, чтобы была видна их зависимость от внешних условий (получают какие-то данные) или наоборот их абсолютная независимость (выполняют долгие итерационные расчеты).

Еще 2 Z
Если ВАМ надо просто ограничить время работы расчетного потока по времени (и при этом времени реальном, а не временем работы потока) и сделать это внутри потока, то...

1. заводим локальную переменную
private
statrttime: TdateTime;
2. при старте потока засекаем время
starttime:=Now;
3. вычисляем контрольное время
4. при работе периодически в любом удобном нам месте (например в начале каждой итерации цикла) проверяем контрольное время сравниваем его с текущим и если надо меняем поведение потока.

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

while not terminated // завершение по проверке стандартного флага

А для осуществления ограниченного по времени получения данных, в компонентах предусмотрен timeout.