Try ... except проблема

[BJIaquMup]

function Calc(g,p:extended):extended;
begin
ResetResult:=false;
try
Calc:=exp(p*ln(g));
except on EOverflow do ResetResult:=true;
end;//try
end;

Так в Delphi. Подскажите пожалуйста, как бы это выглядело в FPC?

[STAKANOV]

Так же

http://www.freepascal.org/docs-html/ref/refse66.html#x151-15800013.2

[BJIaquMup]

Не открывается ссылка.

[STAKANOV]

Не открывается ссылка.

Не знаю. У меня открывается. Если документация есть, то это "Free Pascal :Reference guide.", раздел 13.2

Хотя можно поверить наслово

[shade]

Все должно быть так же
+ должен быть подключен SysUtils, там определен EOverflow (в Delphi тоже требование)
+ модуль должен быть скомпилирован в режиме {$MODE OBJFPC} или {$MODE DELPHI}

[BJIaquMup]

Все должно быть так же
+ должен быть подключен SysUtils, там определен EOverflow (в Delphi тоже требование)
+ модуль должен быть скомпилирован в режиме {$MODE OBJFPC} или {$MODE DELPHI}

Пробовал. Ругается на try по-прежнему.

[shade]

А что у тебя за ResetResult
Может Result? хотя нет, не понятно...

Приведи полный код, и укажи версию своего компилятора.
----------------------

Обрати на место положение {$MODE DELPHI}, в новой версии компиятора (у меня 2.3.1) если указать после uses, то не компилятор генерирует предупреждение и игнорирует эту директиву, поэтому не работает.

Код: Выделить всё

program test;

{$MODE DELPHI}

uses SysUtils;


var ResetResult : boolean;

function Calc(g,p:extended):extended;
begin
  ResetResult:=false;
  try
   Calc:=exp(p*ln(g));
  except on EOverflow do ResetResult:=true;
  end;//try
end;

begin
  calc(0, 0);
end.

[SAK]

А в чём проблема-то, при компиляции или при выполнении? У меня при компиляции нет ошибок, при выполнении происходит исключение деления на 0.
Почему не написать проще:

Код: Выделить всё

  try
   Calc:=exp(p*ln(g));
  except ResetResult:=true;
  end;//try


В этом случае исключение обрабатывается.

[BJIaquMup]

А проблема оказалась здесь:

Код: Выделить всё

procedure ingraf;
var gd,gm:smallint;
// 6peg kakou~-mo :-/ Tpe6yem smallint BMecmo integer. uguomu3M!
begin gd:=detect;initgraph(gd,gm,'C:\Pascal\FPC') end;


Это всё после ввода директивы компилятору подключение модуля Delphi {$ MODE DELPHI}

[Attid]

не надо леаперда обижать, он об этом стопудова писал, надо читать что он говорит. вообще надо забанить подобные вопросы без копи\пасте сообщений фпц. так глядишь пока скопируют и прочитают что там .