Bonjour,
 
J'ai un petit problème    
 
Je souhaite récupérer les mots séparés par des espace dans une chaîne.
 
Voici mon algo :
 

Line : Wide_String(1..2024);
Last : Natural := 0;
Top, Bot : Positive := 1;

for I in 1..Last loop
   if Line(I) = Wide_Character'Val(32) then
      Bot := I-1;
      begin
         if not Exist(line(Top..Bot)) then
         begin
           Add(Line(Top..Bot), Count);
           Count := Count + 1;
         exception
       when others =>
          null;
       end;
    end if;
    sentence(sentence_Last + 1) := Keyword(line(Top..Bot));
    sentence_Last := sentence_Last + 1;
    Top := Bot+2;
    exception
       when others =>
            Put_Line(Line(Top..Bot));
    end;
  end if;
end loop;

 
Au second appel l'appel du premier "exist" j'ai une fonction de comparaison de chaines "<" qui me dit "index check failed" donc, j'en déduit qu'une chaine est de longueur zéro.
 
L'échantillon de texte est celui ci "1 Au commencement, Dieu créa les cieux et la terre."
j'y suis depuis 20 minutes et je ne trouve mon l'erreur .
Merci pour votre aide.

Bon, j'ai trouvé, ça fais plusieurs fois que je me laisse avoir avec ça. je vais pas oublier ce coup ci.
Merci.

il était ou le problème

 
Lorsque je passais mon tableau de caractères, je délimitais les borne avec deux index, hors, ma fonction de comparaison attendait une chaine commençant à 1.