Re: Help with Exceptions!

[Vincent Smeets <smeets@cci.de>]

Robert Gelb wrote:
> 
> procedure test is
>         x:integer;
> begin
>         x:=10000000;
>         x:=3;
> exception
>         when CONSTRAINT_ERROR=>
>                 put("Error");
>                 --how can I go back to 'x:=3' statement
> end test;
> 

with Text_IO;
procedure Test is
   X : Integer;
begin
   begin
      X := 10000000;
   exception
     when Constraint_Error =>
        Text_IO.Put_Line ("Error");
   end;
   X := 3;
end Test;

--      Vincent Smeets              Competence Center Informatik GmbH
--      Tel. : +49-5931-805461      Postfach 1225
--      Fax  : +49-5931-842461      49702 Meppen, Germany
--      EMail: smeets@cci.de        http://www.cci.de/