From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,430307b3518adfd4
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Date: Fri, 22 Dec 2006 14:30:28 +0100
From: Gautier <gautier@fakeaddress.nil>
User-Agent: Thunderbird 1.5.0.9 (Windows/20061207)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Please help!  CONSTRAINT_ERROR: access check failed - This has
 me stumped!
References: <1166791781.304063.115210@42g2000cwt.googlegroups.com>
In-Reply-To: <1166791781.304063.115210@42g2000cwt.googlegroups.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 83.76.157.149
X-Original-NNTP-Posting-Host: 83.76.157.149
Message-ID: <458bddd5_1@news.bluewin.ch>
X-Trace: news.bluewin.ch 1166794197 83.76.157.149 (22 Dec 2006 14:29:57 +0100)
Organization: Bluewin AG
Complaints-To: abuse@bluewin.ch
X-Original-NNTP-Posting-Host: 127.0.0.1
Path: 
 g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!wns14feed!worldnet.att.net!164.128.36.58!news.ip-plus.net!newsfeed.ip-plus.net!news.bluewin.ch!not-for-mail
Xref: g2news2.google.com comp.lang.ada:7988
Date: 2006-12-22T14:30:28+01:00
List-Id: <comp.lang.ada>

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!