Есть или нет... вот в чём вопрос...)))

[ZhekON]

Люди подскажыте пожалуста есть ли такая процэдура которая бы завершала вот такой каталог процэдур

procedure deth;
begin
if <условие> then
// действия в следствии которых процэдура gop_stop должна завершыть роботу. Какбудто вместо этой процэдуры(deth) в процэдуре gop_stop стоит стандартная процэдура ехit
end;

procedure gop_stop;
begin
deth;
end;

КАк реализовать закрытие процэдуры gop_stop если условие в процэдуре deth правдиво
(не нужно писать что можно присвоить переменной значение и если условие правдиво то проверять это в процэдуре gop_stop. Мне бы просто узнать нельзя ли както попроще )

[mutabor]

судя по приведенному коду <условие> глобальное, что мешает применить его в нужной процедуре? да и вообще как угодно можно сделать, напиши функцию, если true вернет запускай Exit

з.ы. зачем тебе exit, засунь в отдельный блок (begin end) ту часть процедуры к-рую ты хочешь пропустить и поставь к нему условие

[Alex21]

ZhekON, это имеет смысл при цикле или при мнежественных условиях (if) и после каждого условия идет проверка на exit, т.е. все-равно - цикл.

[Shuraken]

const
Hvatit: boolean = true;
NeHvatit: boolean = false;
var
NumberOfKills: integer;

procedure deth(ANumberOfKills: integer);
begin
if ANumberOfKills > 10 then
begin
gopstop(Hvatit);
Exit;
end
else gopstop(nehvatit);
end;

procedure GopStop(HvatitOrNotHvatitWhatIsTheQ uestion: boolean);
begin
if HvatitOrNotHvatitWhatIsTheQuestion = true then
Exit
else begin
inc(NumberOfKills);
death(NumberOfKills);
end;
end;

[ZhekON]

да нет... мне не Это всё нужно...
Вот есть процэдура Ехit которая выходит из отдельной процэдуры и Halt, которая выходит вообще из програмы... а мне нужна процэдура которая просто завершала роботу всех процэдур(или какойто особенной) не завершая роботу программы...

[mutabor]

невозможно одновременно прекратить работу всех процедур, так как в текущий момент времени исполняться может только одна процедура

[ZhekON]

вобщем ясно... спасибо и на том

[Virtson]

обычно делается так :

procedure gop_stop;
begin
if [not] deth then exit;
end;

[ZhekON]

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

обычно делается так :

procedure gop_stop;
begin
if [not] deth then exit;
end;

разве процэдура возвращает какойто результат???

[mutabor]

возвращать результат может как функция так и процедура, и даже не один