[morebeauty]

Сей вопрос не особо важен и вызван чрезмерной ленью.

Суть:
Есть некоторая функция проверки условия. Вызывается из целого ряда других функций и процедур. Выдает сообщение об ошибке (если условие не выполнилось).

Вопрос:
Можно ли из этой функции проверки прервать выполнение той функции, из которой она была вызвана?

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

Код:

function ФункцияПроверки1:boolean;
begin
******
end;

Function ФункцияПроверки2:boolean;
begin
******
end;

Function ФункцияПроверки3:boolean;
begin
******
end;

procedure ВыполняемаяПроцедура1;
begin
if ФункцияПроверки1 then
begin
***
if ФункцияПроверки2 then
begin
***
if ФункцияПроверки3 then
begin
*****
*****
*****
end;
end;
end;
end;

procedure ВыполняемаяПроцедура2;
begin
if ФункцияПроверки1 then
begin
***
if ФункцияПроверки2 then
begin
***
if ФункцияПроверки3 then
begin
*****
*****
*****
end;
end;
end;
end;

А хотелось бы упростить и привести к виду:

Код:

procedure ПроцедураПроверки1;
begin
if Условие=false then
begin
******
завершить подпрограмму, из которой была вызвана проверка;
end;
end;

procedure ПроцедураПроверки2;
begin
if Условие=false then
begin
******
завершить подпрограмму, из которой была вызвана проверка;
end;
end;

procedure ПроцедураПроверки3;
begin
if Условие=false then
begin
******
завершить подпрограмму, из которой была вызвана проверка;
end;
end;

procedure ВыполняемаяПроцедура1;
begin
ПроцедураПроверки1; //дальше не должно пойти, если условие не выполнено
***
ПроцедураПроверки2; //дальше не должно пойти, если условие не выполнено
***
ПроцедураПроверки3; //дальше не должно пойти, если условие не выполнено
***
***
***
end;

procedure ВыполняемаяПроцедура2;
begin
ПроцедураПроверки1; //дальше не должно пойти, если условие не выполнено
***
ПроцедураПроверки2; //дальше не должно пойти, если условие не выполнено
***
ПроцедураПроверки3; //дальше не должно пойти, если условие не выполнено
***
***
***
end;

Это возможно сделать?

[poli-smen]

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

Мотивация:
На данный момент есть несколько функций проверки. Их результат критичен (то есть если результат отрицательный, дальше ничего выполняться не должно).

Вызывай исключения. (см. raise)

[M.A.D.M.A.N.]

Abort()

или raise EAbort.Create

[Pyro]

Код:

if not ФункцияПроверки1 then exit;
***
if not ФункцияПроверки1 then exit;

или просто по очереди вызывать и в случае чего ошибку кидать и ловить

[morebeauty]

Abort()

или raise EAbort.Create

Тогда ведь вместо блоков IF придется тыкать блоки TRY? или я не догоняю чего-то?

[poli-smen]

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

Тогда ведь вместо блоков IF придется тыкать блоки TRY? или я не догоняю чего-то?

Да, нужно использовать блоки try...except, но не вместо if.

[NumLock]

Код:

procedure ВыполняемаяПроцедура1;
begin
if not ФункцияПроверки1 then Exit;
***
if not ФункцияПроверки2 then Exit;
***
if not ФункцияПроверки3 then Exit;
*****
*****
*****
end;

[morebeauty]

Да, нужно использовать блоки try...except, но не вместо if.

Ну тогда лучше не станет. Я лишь хотел отказаться от одинакового каркаса для множества выполняемых процедур (или максимально его упростить).

Есть еще способы? Может, есть команда, которая разом прерывает выполнения всех функций (в том числе и рекурсивных) и переходит в режим ожидания действий пользователя? Ну, типа Application.Terminate, только без полного завершения программы, а лишь завершение активности.


А потоки в этом помогут, как думаете?

[Pyro]

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

Ну тогда лучше не станет.

станет, нужен один try..except на все вызовы

[morebeauty]

Код:

procedure ВыполняемаяПроцедура1;
begin
if not ФункцияПроверки1 then Exit;
***
if not ФункцияПроверки2 then Exit;
***
if not ФункцияПроверки3 then Exit;
*****
*****
*****
end;

Такое тоже рассматривал. Не подходит. Все дело в том, что на данный момент мне подойдет просто Exit, завтра будут другие задачи, послезавтра третьи. Представь, сколько придется переделывать ВыполняемыхПроцедурХ каждый раз.

Вот поэтому я и хочу свести все действия на невыполнение условия к процедуре проверки. Тогда код будет более гибким ИМХО.

станет, нужен один try..except на все вызовы

Я тогда не совсем представляю как это будет выглядеть. можешь изобразить?

Если ф-ии с одинаковыми параметрами, можно ссылки на них свалить в массив и в одном цикле прогнать.

это как?

[poli-smen]

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

Есть еще способы? Может, есть команда, которая разом прерывает выполнения всех функций (в том числе и рекурсивных) и переходит в режим ожидания действий пользователя?

Исключение "разом прерывает выполнения всех функций (в том числе и рекурсивных)" вплоть до последнего обработчика исключения except.

В примере ниже "Beep" никогда не вызовется, так как первый же "Abort" прервёт одним махом все вложенные (рекурсивные) вызовы и перейдёт "в режим ожидания действий пользователя" (если конечно не встретится другого обработчика except):

Код:

procedure TForm1.Button4Click(Sender: TObject);

  procedure Recursion(Level: Integer);
  begin
    if Level = 100 then Abort;
    Recursion(Level + 1);
    Beep;
  end;

begin
  Recursion(0);
end;