Re: Something I don't understand

[Laurent <daemon2@internet.lu>]

Hi

Now it works as I think it should.

Name : LOOP            
            BEGIN --exception handler block
               Ada.Text_IO.Put ("Name (1 - ");                  
               Ada.Integer_Text_IO.Put (Item => MaxName, Width => 1);
               Ada.Text_IO.Put (Item => " characters) >"); 
               
               DECLARE
                  S : String := Ada.Text_IO.Get_Line;
               
               BEGIN
                  IF S'Length = 0 THEN
                     RAISE Name_Too_Short;
                  ELSIF S'Length <= MaxName THEN
                     Item.Name (1 .. S'Length) := S;                     
                  ELSE RAISE Name_Too_Long;   
                  END IF;
                  
                  EXIT; -- correct Name                  

               EXCEPTION
                     
                  WHEN Name_Too_Short =>                     
                     Ada.Text_IO.Skip_Line;
                     Ada.Text_IO.Put (Item => "Name too short!");                     
                     Ada.Text_IO.New_Line;                     
                  WHEN Name_Too_Long =>                     
                     Ada.Text_IO.Skip_Line;                     
                     Ada.Text_IO.Put_Line (Item => "Name too long!");                     

               END; -- exception handler
            END;
         END LOOP Name;

The only thing which I find annoying is the fact that I have to tape ENTER 2 times.

@Adam: Thanks for your example

Thanks

Laurent