小编Mad*_*Nel的帖子

尝试运行我的程序时，出现错误：引发 CONSTRAINT_ERROR：tp3.adb:41 索引检查失败 有问题的行是：（IF CaveF5.Infos(H).Nom = Nom_Bout洞穴有问题？）感谢您的帮助！这是代码：

--But : Gestion d'une cave à vin

   TYPE CouleurVin IS (Rose, Rouge, Blanc);
   PACKAGE CouleurIO IS NEW Enumeration_io(CouleurVin);
   USE CouleurIO;


   TYPE Bouteille IS RECORD
      Nom : Unbounded_String;
      Couleur : CouleurVin;
      Millesime : Integer;
      Quantite : Integer;
   END RECORD;


   N: CONSTANT Integer := 1000;
   TYPE Cave IS ARRAY (1..N) OF Bouteille;


   TYPE Cave_Bis IS RECORD
      Infos : Cave;
      Nbeff : Integer;
   END RECORD;
    


   PROCEDURE Recherche_Seq(Nom_Bout: IN Unbounded_String; CaveF5: IN Cave_Bis; PRESENT: OUT …