KDPoid
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Смотрю в код. В большой процедуре вижу несколько кусков вида:
Код:
if <разные условия> then
begin
...
<повторяющаяся часть>
exit;
end; |
Переделать на:
Код:
if <разные условия> then
begin
...
doBeforeExit;
exit;
end; |
- не совсем удовлетворяет моё эстетическое чувство 
Если бы exit позволял вывалиться наверх не на один уровень, а на несколько, то я бы убрал exit внутрь и получил бы более изящное:
:
Код:
if <разные условия> then
begin
...
doAndExit;
end; |
Вряд ли я первый, кто задумался о создании процедуры
Exit(aLevel: integer);
Адреса возврата, они же вот, в стеке...
Если кто-то уже сделал себе что-то подобное, прошу поделиться конструкцией велосипеда
|
А флаги - конечно константы.