Try ... except

[Frankq]

Ciao a tutti
Nel ebook "StartProgrUsingPascal" c'è un esempio di try ... except
Ho copiato l'esempio su Lazarus, mi compila senza errori, ma quando divido per zero non mi attiva la gestione dell'eccezione
accludo il code
 

Codice: [Seleziona]

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes , sysutils
  { you can add units after this };
  var
  x, y: Integer;
  Res: Double;
begin


  try
  Write('Input x: ');
  Readln(x);
  Write('Input y: ');
  Readln(y);
  Res:= x / y;
  Writeln('x / y = ', Res);
  except
  on e: exception do
  begin
  Writeln('Errore zero: ', e.message);
  end;
  end;
  Write('Press enter key to close');
  Readln;


end.

la riga "Errore zero" non viene stampata a video
Dove sbaglio?
Franco

[xinyiman]

In teoria la gestione degli errori serve quando lanvi l'eseguibile e non quando lo debuggi dall'IDE. Prova a compilarlo ma a lanciare l'eseguibile e poi mi dici!

[Frankq]

Hai perfettamente ragione. Se compilato mi segnala l'errore
Grazie Franco

[xinyiman]

Si perchè in fase di debug te lo segnala in modo tale che tu possa correggere l'errore.

Ciao