Path: ...!news.mixmin.net!aioe.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!agneau.org!nntpfeed.proxad.net!proxad.net!feeder1-1.proxad.net!cleanfeed3-b.proxad.net!nnrp1-1.free.fr!not-for-mail From: Thomas Newsgroups: fr.comp.lang.ada Mail-Copies-To: nobody Subject: Re: =?UTF-8?Q?d=C3=A9but?= avec fichiers textes... OPEN cause "file already open" mais lsof ne montre rien References: <6707302a-a67f-4446-b2bf-968474200b27n@googlegroups.com> <3b5ff25a-fb95-46dd-83f5-36c5362766ddn@googlegroups.com> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit User-Agent: MT-NewsWatcher/3.5.3b3 (Intel Mac OS X) Date: Wed, 19 Jan 2022 03:35:32 +0100 Message-ID: Lines: 45 Organization: Guest of ProXad - France NNTP-Posting-Date: 19 Jan 2022 03:35:32 CET NNTP-Posting-Host: 91.175.52.121 X-Trace: 1642559732 news-4.free.fr 8909 91.175.52.121:13040 X-Complaints-To: abuse@proxad.net Bytes: 2704 In article , "J-P. Rosen" wrote: > Le 05/02/2021 à 16:40, 0012...@gmail.com a écrit : > > procedure compression is > > type Tableau is array(Positive) of Natural; > Ceci déclare un tableau de 2**31 éléments. Heureusement, tu n'utilises > pas ce type... > > begin > Open(FICHIER, In_File, "LECTURE"); > exception > when others => Put_Line("ici ?"); CLOSE(FICHIER); > --------------------------- > end; > create(FICHIER, Out_File,"ECRITURE"); > > Ca devrait être create (FICHIER_ECRIRE, .... > Effectivement, FICHIER est déjà ouvert. > > C'est le genre d'erreur qui est tellement grosse qu'on ne la voit pas ;-) :-D je dirais que c'est une bonne raison pour : - simplifier son programme au max avant de le montrer aux autres, afin de ne pas encombrer les autres avec du code inutile, - vérifier si le programme simplifié reproduit effectivement l'erreur. si ça n'est pas le cas, ça veut dire qu'elle n'est pas localisée où on croyait. et en poursuivant les investigations pour la localiser correctement, c'est souvent suffisant pour la comprendre complètement et la corriger. c'est un peu comme se relire et reformuler autant qu'il faut pour être certain d'être bien compris par les autres : quelques fois, c'est suffisant pour nous permettre de trouver nous même la solution au pb formulé. -- RAPID maintainer http://savannah.nongnu.org/projects/rapid/