Discussion :

[valer]

Bonjour à tous,

Depuis lundi je tourne sur place avec une application qui me donne le message d'erreur signalé en intitulé de la discussion.
En effet cette application marchait bien jusqu'à ce que je modifie des fiches dans l'application et depuis j'ai ce message. Peu importe ce que je fais au lancement de l'application une boite de dialogue s'affiche portant ce message et se multiplie anarchiquement comme si c'était une boucle infinie. Pour résoudre le problème j'ai annulé tout ce que j'ai fait dans l'application mais aucun résultat. J'ai même pris une version du logiciel que j'ai abandonné depuis plus d'un mois mais j'ai le même résultat.
J'utilise Delphi 6 et 7 et une base de donnée tournant sur Access. Pour me connecter à la base de donnée j'utilise BDE.
Quelqu'un peut-il m'aider à sortir de ce pétrin SVP. Je suis stable depuis lundi sans suite. Je compte sur tous et sur chacun.

[Rayek]

C'est le message caractéristique d'erreur quand on dépasse le nombre d'éléments d'une liste.
Tu devrais checker tes listbox/combobox et tous autres composants qui utilisent des TStrings.

[valer]

Merci je vais essayer pour voir mais je voudrais savoir quelle est la taille de donnée maximale pouvant entrer dans un combobox. Dans mon application j'utilise juste des combobox et des stringGrid. Les informations à remplir dans ces deux composants sortent généralement de la base de donnée. Pour le moment je n'ai aucune table qui contient plus de 100 enregistrements. S'il n'y a aucun enregistrement dans une table qu'il faut parcourir à l'ouverture de la fiche y'a il un problème?

[ShaiLeTroll]

Tu devras t'inquiéter vers plus de 10000 éléments ... surtout pour une question d'affichage que pour une question de stockage ...

Tu devrais activer "Arrêter sur Excpetion Delphi" dans les Options du Débuggeur, ...

Si c'est au démarrage, débug Pas à Pas, ...

Si tu fais bien un remplissage comme ceci, tu ne devrais avoir aucun problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Combo.Items.Clear();
while not Table.EOF do
begin
  Combo.Items.Add(Table.FieldsByName('Champ1').AsString);
  Table.Next();
end;

Mais dans ton code, vérifie tu à chaque fois que tu accéde à Items ou à Strings, le Count !!! Il est impératif de le vérifier avant !

[evarisnea]

vérifies aussi du côté de l'indexation des listes que tu ne déborde pas l'indice maximal, ou minimal. exemple d'une liste contenant 10 éléments, l'accès à l'élément d'indice -1 ou d'indice 10 provoquera certainement cette erreur.

[Rayek]

Au lieu de remplir manuellement un combobox, autant utiliser le DbLookUpCombobox

[Franck SORIANO]

A mon avis, dans ton code de temps en temps du doit récupérer la valeur sélectionnée d'une combo avec un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  s := cb.Items[cb.ItemIndex];

Hors si la combo est vide, ItemIndex vaut -1. Et Items[-1] va provoquer l'erreur.

Fait ce que ShaiLeTroll suggère : Lance l'appli en Debug avec l'arrêt sur exception Delphi activé. Le debogueur devrait t'indiquer immédiatement l'emplacement de ton erreur.

[valer]

Bonjour,
Merci pour toutes vos aides elles ont été précieuses. J'ai pu résoudre le problème grâce à vous.