VPF::Как одним махом определить выполнение нескольких

Exploited

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

(голосов: 0)

Загрузка ...

Unregistered

Доброго всем утра!

У меня тут вопросик, небольшой:
Можно ли одним махом определить как выполнилось несколько функций - успешно или нет, и вывести соответствующее сообщение, если хоть одна из них не выполнилась. Пишеться программа на чистом Win32API. Вот фрагмент кода:

Код

OPENCD:
   Begin
   ...
   //Здесь функция открытия CD-привода
   //Здесь следующая функция
   //Здесь еще одна функция
   ...
   End;

neutrino

Дата 9.6.2002, 11:17 (ссылка)

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

Загрузка ...

Gothic soul

Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

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

Может я чего не понимаю... А просто проверить если функция н не сработала, то реак; или сделать флаг с начальным значением "правда" и присваивать ему "ложь" если функция н не выполнилась. В конце проверит чему равен флаг и выдать соответствуюшее сообшение.

Код


var Flag: Boolean;
begin
  Flag:=true;
  Flag:=Flag*function1(x,y,z);
  Flag:=Flag*function2("ass","horse");
  .
  .
  .
  Flag:=Flag*functionN("lalala");
  if not Flag then ShowMessgae("Error");
end.

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

The truth comes from within ...

Покойся с миром, Vit

Song

Дата 9.6.2002, 15:33 (ссылка)

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

Загрузка ...

Sysman.ru

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

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

После каждой можно поставить GetLastError, но это ИМХО издевательство. Зачем Вам это надо? Если Вы боитесь ошибки закиньте исполняемый блок инструкций в тело исключения.

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

Прежде чем сказать "Невозможно", подумай, прав ли ты

Vit

Дата 9.6.2002, 22:03 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Если функция возвращает значение - выполнено/невыполнено то можно так

if func1 and
func2 and
func4 then showmessage('All done!')
else
showmessage('Failed!');

Если функция генерит исключение тогда еще проще - поставь все в один try..except

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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