Другой TIMER

[Sibedir]

Ну, можно и таймерами их запускать, но при этом надо сделать так:

var
  f1, f2: boolean;

procedure proc1;
begin
showMessage('Start of PROC1');
f1 := True;
while not f2 do sleep (100);
// Здесь должно быть чтото вроде того, что я хочу...
showMessage('End of PROC1');
f1 := False;
end;

procedure proc2;
begin
while not f1 do sleep (100);
showMessage('Start of PROC2');
f2 := True;
// Здесь должно быть чтото вроде того, что я хочу...
while f1 do sleep (100);
showMessage('End of PROC2');
f2 := False;
end;

И два таймера. Таймер 1 запускает proc1 и таймер 2. Таймер 2 запускает proc2.

[Altera]

Потоки не помогают, я пробовал...

[B_N]

2 Sibedir

И Вы искренне полагаете, что Ваш пример будет работать?

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

Потоки не помогают, я пробовал...

Значит, Вы неправильно пробовали. Любая многозадачная ОС предоставляет горы разнообразных объектов для синхронизации задач. В Вашем случае достаточно определть в "главной" процедуре изначально сброшеный объект TEvent, запустить два потока - один для proc1 и один для proc2, запустить сначала proc1, потом proc2, в конце proc1 выставлять TEvent с помощью SetEvent, а в конце proc2, ну или перед выводом строчки "End of PROC2", если угодно, с помощью WaitFor ждать, когда proc1 выставит сигнал. И Всё. Можно еще усовершенствовать программу, с тем чтобы основной поток ждал завершения обоих рабочих - ввести еще один TEvent и выставлять его в конце proc2.

[Sibedir]

. . . . . . . | . . . . . .
. . . . . . . | . . . . . .
. . . . . . __|__. . . . . .
. . . . . ./ . . \ . . . . .
. . . . . | . . | . . . . .
. . . . . .\_____/ . . . . .
. . . . . . . . . . . . .
. . . . ._____. . . . . . .
. . . . .| . |. . . . . . .
. . . . .| . |. . . .______ .
. . . . .| . |. . . | . . .| .
. . . . . . . . . . | МЫЛО | .
. . . . . . . . . . |______| .
. . . . . . . . . . . . .


Ни кого не стоит винить.
Я сам во всем виновт