| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

on E: Exception do в DataModule и консольное приложение

cr@nk ©   (2014-06-28 10:11:00) 

В консольном приложении в DataModule пытаюсь отловить возможные exception
 try
   CodeSite.Send('Пробуем открыть файл', ParamStr(num_param));
   xf.OpenFile(ParamStr(num_param));
 except
   CodeSite.SendError('Ошибка при открытии файла');
   on E: Exception do
     WRiteln(E.ClassName, ': ', E.Message);
 end;

Компилятор ругается
[dcc32 Error] DMMainU.pas(288): E2003 Undeclared identifier: 'on'

В то время как в главном модуле такой код компилируется без проблем:
 try
   dmMain := TdmMain.Create(nil);
 except
   on E: Exception do
     WRiteln(E.ClassName, ': ', E.Message);
 end;

---

Dennis I. Komarov   (2014-06-28 18:05:00) [1]

> уже не смешно

Ну надо было код требовать...

---

turbouser   (2014-06-28 15:55:00) [2]

>  cr@nk ©   (28.06.14 15:37) [3]
>
>
> > on do begin
> > А уже дальше свою ересь..
>
> не помогло...

уже не смешно

>  except
>    CodeSite.SendError('Ошибка при открытии файла');
>    on E: Exception do
>      WRiteln(E.ClassName, ': ', E.Message);
>  end;
>

>  except
>   on E: Exception do
> begin
>    CodeSite.SendError('Ошибка при открытии файла'); // тут бы еще e.exception, но ладно. сойдет.
>      WRiteln(E.ClassName, ': ', E.Message);
< end;
>  end;

---

cr@nk   (2014-06-28 15:37:00) [3]

> on do begin
> А уже дальше свою ересь..

не помогло...

---

turbouser   (2014-06-28 11:40:00) [4]

Жаль орешник не пополняется, достойный кандидат :)

---

Dennis I. Komarov   (2014-06-28 11:05:00) [5]

on do begin
А уже дальше свою ересь...

---

Наверх