Выход из процедуры родителя

[ivanov1]

Добрый день. Не знаю как реализовать Выход из процедуры родителя

т.е.

Код: Выделить всё

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
 pbegin;
 ///
 ///
 ///
 ////
end;

procedure pbegin;
begin
 здесь сделать
 if ... then exit; /// Чтобы exit сработал в процедуре которая вызвала.
end;

[sign]

Код: Выделить всё

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  if pbegin then exit;
  ...
end;

function pbegin: boolean;
begin
  if ... then exit(true);
  ...
  result := false;
end;

[iN0k]

в качестве плохого паттена проэктирования:
процедуру pbegin; сделать inline;.
проверенно будет работать .

Связанную с этим паттеном ошибку у себя как-то искать запарился )))
В связи с этим процедуру EXIT не использую

[Лекс Айрин]

sign, я, кстати, тоже переделал бы процедуру так, чтобы не использовать Exit. Это несложно.

[ivanov1]

в качестве плохого паттена проэктирования:
процедуру pbegin; сделать inline;.
проверенно будет работать .

Связанную с этим паттеном ошибку у себя как-то искать запарился )))
В связи с этим процедуру EXIT не использую

Попробую так сделать, всем большое спасибо!

Добавлено спустя 2 часа 4 минуты 42 секунды:
инлайн не сработал

Код: Выделить всё

procedure pbegin; inline;
begin
 if belka=false then exit;
end;

[iN0k]

НЕ ДЕЛАЙ ЭТОГО ... я же написал плохого паттена проэктирования ...

причина почему так делать нельзя:
директива INLINE - это лишь твоя просьба компилятору ...
а он, компилятор, твою просьбу может выполнить, или забить на нее. это зависит от множества причин. Версии компилятора, параметров оптимизации кода и т.д.

инлайн не сработал

вот ... звезды не сошлись ... а иногда могут и сойтись (обычно это при -О3) ...

но я еще раз повторю: НЕ ДЕЛАЙ ТАК ... это пример ПЛОХОГО, ОЧЕНЬ ПЛОХОГО подхода!!!

Делай как sign говорит, с поправкой Лекс Айрин!!! Это наверно самый ПРАВИЛЬНЫЙ вариант, который он будет работать всегда.

[ivanov1]

Делай как sign говорит, с поправкой Лекс Айрин!!! Это наверно самый ПРАВИЛЬНЫЙ вариант, который он будет работать всегда.

ок

[скалогрыз]

а ещё рекомендуется меньше кода писать в MenuItemClick
особенно если идёт какая-та хитрая логика с pbegin и его не выполнением.

Добавлено спустя 3 минуты 49 секунд:

вот ... звезды не сошлись ... а иногда могут и сойтись (обычно это при -О3) ...

в баг репорт? по логике вещей, exit в inlinе должен выйти только из текущей процедуры, но не родительской.

[phomm]

Можно использовать Abort, но, скорее всего, ещё понадобятся небольшие телодвижения, типа трайэксепта ( срабатывающего либо безотносительно типа исклдючения, либо явно на EAbortException) в нужном месте. Abort формально возвращается к ближайшему обработчику исключений, и может пройти нн-ое количество подпрограмм по стеку вызовов "назад".
Если что, могу привирать, ибо положения с Abort в RTL FPC не знаю, исхожу из опыта в Дельфи, полагаю, что наличествует.

[pda]

проверенно будет работать

В багтрекер отправлено?

[iN0k]

эм ...
про баг трекер СТОЙТЕ
щас проверил этот эфект НЕ НАБЛЮДАЕТСЯ
Lazarus 1.2.2 r44758 FPC 2.6.1 i386-win32-win32/win64

...
но он стопудово был (несколько лет назад) ... пытаюсь найти следы

[sign]

Ну, раз задача, просто что-то там проверить, то

Код: Выделить всё

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  if pbegin then exit;
  ...
end;

function pbegin: boolean; 
begin
  Result := belka=false;
end;

[Лекс Айрин]

sign, забейте на Exit. Как правило, если он используется, то значит программист не очень хорошо проработал код в данном месте программы. Exit, это тот же Goto и, насколько мне известно, компилируется в команду безусловного перехода в бинарном коде.

[pda]

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

Главное, говоря такие слова, сделать серьёзное лицо и не упоминать как часто используется exit() в исходниках free pascal и его rtl...

[Лекс Айрин]

pda, а кто говорит, что FPC хорошо написан?

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