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