Re: Please help! CONSTRAINT_ERROR: access check failed - This has me stumped!

[Gautier <gautier@fakeaddress.nil>]

tgwaltz:

> raised CONSTRAINT_ERROR : aufgabe1.adb:157 access check failed

I get the error on the line with the arrow.
A little help: anker.next is a shorter expression for anker.all.next.
Alles klar, Herr Kommissar ?...

       --Fuer das Abfragen, an welcher Position in der Liste ein Element
       --enthalten ist
       function IndexOf(val : Integer) return Integer is
         ind : Integer := 0;
       begin
  -->    while anker.next /= null loop
             if anker.v = val then
                --nur das erste Ereignis wird ausgegeben
                return ind;
             end if;
             anker := anker.next;
             ind := ind + 1;
         end loop;
         return -1;
       end IndexOf;

HTH, Gautier
______________________________________________________________
Ada programming -- http://www.mysunrise.ch/users/gdm/gsoft.htm

NB: For a direct answer, e-mail address on the Web site!