VPF::Закончить выполнение одной процедуры из другой

pavelv

Дата 28.11.2007, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет

Пример:

Код


procedure temp1;
begin
 temp2;
end;

function temp2:boolean;
begin
 temp2:= true;
 try
  //какой-то код
 except
   temp2:= false;
  //ВОТ ТУТ же закончить выполнение temp1, тоесть сделать аналогично тому, что в ней exit написать
 end;
end;

Хотелось бы узнать возможно ли вообще такое? Понимаю, что проще написать пару условий в temp2, но на данный момент таких процедур в программе 72 штуки и легче одну функцию исправить smile

.

Это сообщение отредактировал(а) Alexeis - 28.11.2007, 10:33

Alexeis

Дата 28.11.2007, 10:37 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(pavelv @ 28.11.2007, 09:34

)

Понимаю, что проще написать пару условий в temp2

Лучше сделать пару вложенных try блоков если возникло исключие в внешнем блоке, то except разместить в самом конце процедуры, после возникновения исключения просто не будет других операторов на выполнение и выход из процедуры произойдет сам собой.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

pavelv

Дата 28.11.2007, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет

Alexeis в этом случае прийдется лапатить все 72 отчета. Конечно можно и Stringreplace воспользоваться, но уже просто интересно где читать сабж и возможен ли он вообще

Snowy

Дата 28.11.2007, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код

procedure temp1;
begin
 temp2;
 ShowMessage('Эта строка не выполнится при ехепшене');
end;

function temp2:boolean;
begin
 temp2:= true;
 try
  //какой-то код
 except
   temp2:= false;
   Abort; //ВОТ ТУТ делаем аборт вызывающей функции
 end;
end;

pavelv

Дата 29.11.2007, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет

Спасибо, решил проблему smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »