Re: loop and constraint error(Thanks that fix ..it all)

[Kas_le_chat <kasino@attcanada.net>]

Matthew Heaney wrote:
> 
> Kas_le_chat <kasino@attcanada.net> writes:
> 
> > Thanks a lot. That fix the constraint_error and the loop problem.
> > I still have the data_error problem.When i provoque it, the program go
> > crazy and loop for ever. Any sugestion is welcome and thanks again.
> 
> Do a Skip_Line in the exception handler.  This will move past the
> current line (which has the bad data).

Thanks a lot it work. This is the code :
begin
   
      
   Entrer_Quantite : --nom de la boucle.
      loop
         begin
            Put("Entrez la quantitee de pomme, MINIMUM 0 et MAXIMUM 50
Kg:");
            es_reels.Get(v_pommes);
            exit Entrer_Quantite;

             exception
            when constraint_error | data_error => 

               Put_Line("Un nombre entre 0.0 et 50.0");
            when others =>  
           
                text_io.skip_line;

          end;
      end loop Entrer_Quantite;
   
Thanks to all who gived me some solutions.
Kas