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

← →
cr@nk © (2014-06-28 10:11) [0]

В консольном приложении в 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 11:05) [1]

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

← →
turbouser © (2014-06-28 11:40) [2]

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

← →
cr@nk © (2014-06-28 15:37) [3]

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

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

> 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;

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

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

on E: Exception do в DataModule и консольное приложение Найти похожие ветки