Discussion :

[bastion]

Salut tout le monde;
Voilà ce bout de procédure me permet plus d'avancer tanque j'arrive pas a trouver la solution, je souhaite que quelqu'un me corrige l'erreur "indice hors limite"
Merçi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var i: Integer;
 
  begin
 
  table1.open;
  if messagedlg('Etes Vous Sure De Vouloir Prendre en Charge.' +edit1.text+'?',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin
   for i:= 0 To Checklistbox1.Items.Count -1 do
  begin
 
 IF NOT Table1.findkey([e1.text])then
 begin
 
   IF NOT Table1.findkey([CheckListbox1.items[i],0,4])then
   begin
       if ChacklistBox1.checked[i]= true then
         begin
    table1.insert;
    table1.fieldbyname('Nummdt').asstring:=edit1.Text;
    table1.fieldbyname('Chap').asstring:=copy(checklistbox1.items[i],0,4);
    table1.fieldbyname('Annee').asstring:=Combobox1.text;
    table1.fieldbyname('Mois').asstring:=Combobox2.text;
    table1.Post;
   end;

[Papy214]

copy(checklistbox1.items[i],1,4)

[gvasseur58]

copy(checklistbox1.items[i],1,4)

Bonsoir,

Je ne pense pas que le problème vienne de là, car Copy accepte les "débordements".

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var
  St: string;
begin
  St := Copy('essai',0, 4);
  button1.Caption := St;
end;

Ce code fonctionne de la même manière qu'avec St := Copy('essai',1, 4);

[bastion]

Bonsoir,

Je ne pense pas que le problème vienne de là, car Copy accepte les "débordements".

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var
  St: string;
begin
  St := Copy('essai',0, 4);
  button1.Caption := St;
end;

Ce code fonctionne de la même manière qu'avec St := Copy('essai',1, 4);

l'erreur persiste, et on exécutant F7 (pas à pas) le compilateur m'indique la ligne

Code :

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

 for i:= 0 To Checklistbox1.Items.Count -1 do

[gvasseur58]

l'erreur persiste, et on exécutant F7 (pas à pas) le compilateur m'indique la ligne

Code :

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

 for i:= 0 To Checklistbox1.Items.Count -1 do

Comme i est de type Integer, je ne vois aucune raison pour qu'un indice hors limites soit indiqué ici. Que se passe-t-il ensuite (après un nouveau F7) ? Après quelle ligne se déclenche l'exception ?

[gvasseur58]

Salut tout le monde;
Voilà ce bout de procédure me permet plus d'avancer tanque j'arrive pas a trouver la solution, je souhaite que quelqu'un me corrige l'erreur "indice hors limite"
Merçi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var i: Integer;
 
  begin
 
  table1.open;
  if messagedlg('Etes Vous Sure De Vouloir Prendre en Charge.' +edit1.text+'?',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin
   for i:= 0 To Checklistbox1.Items.Count -1 do
  begin
 
 IF NOT Table1.findkey([e1.text])then
 begin
 
   IF NOT Table1.findkey([CheckListbox1.items[i],0,4])then
   begin
       if ChacklistBox1.checked[i]= true then
         begin
    table1.insert;
    table1.fieldbyname('Nummdt').asstring:=edit1.Text;
    table1.fieldbyname('Chap').asstring:=copy(checklistbox1.items[i],0,4);
    table1.fieldbyname('Annee').asstring:=Combobox1.text;
    table1.fieldbyname('Mois').asstring:=Combobox2.text;
    table1.Post;
   end;

Bonsoir,

Il est préférable de fournir la procédure complète et structurée pour mieux la comprendre
A première vue, le code ne s'occupe pas du cas particulier où la checklistbox ne comprend pas d'élément : la variable i va donc varier de 0 à 0 (il y aura par conséquent au moins une boucle) et provoquer une erreur dès le test if ChecklistBox1.checked[i] then. En effet, l'élément 0 n'existant pas, l'exception index hors limites est levée.

[Andnotor]

le code ne s'occupe pas du cas particulier où la checklistbox ne comprend pas d'élément : la variable i va donc varier de 0 à 0 (il y aura par conséquent au moins une boucle)

C'est un cas implicitement géré (aucun risque d'exception), for..to requiert une incrémentation. 0..-1 n'est pas valide, donc pas de boucle

je souhaite que quelqu'un me corrige l'erreur "indice hors limite"

Il n'y a pas tant d'éléments indicés et rien n'est vraiment choquant. Donner la ligne sur laquelle l'erreur survient pourrait donner un autre "indice"

[gvasseur58]

C'est un cas implicitement géré (aucun risque d'exception), for..to requiert une incrémentation. 0..-1 n'est pas valide, donc pas de boucle

J'ai répondu un peu vite. La remarque est juste...

[ALWEBER]

J'ai répondu un peu vite. La remarque est juste...

Bonjour,

Comme je l'ai mentionné précédemment il y a de toute façon un problème car le findKey porte une fois sur une table avec une clé primaire simple (sur un seul champ) et une fois sur une table avec une clé primaire composée (sur trois champs) d’où la correction que j'ai apporté dans mon précédent post.

[gvasseur58]

Bonjour,

Comme je l'ai mentionné précédemment il y a de toute façon un problème car le findKey porte une fois sur une table avec une clé primaire simple (sur un seul champ) et une fois sur une table avec une clé primaire composée (sur trois champs) d’où la correction que j'ai apporté dans mon précédent post.

et de deux... Bien sûr, la solution apportée dans le post cité est bonne : je me contentais de répondre à propos d'une recherche d'indice...

[ALWEBER]

Bonsoir

A mon avis le code devrait plutôt ressembler à ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
var
  i: Integer;
begin
  table1.open;
  if messagedlg('Etes Vous Sure De Vouloir Prendre en Charge.' +edit1.text+'?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
    for i:= 0 To Checklistbox1.Items.Count -1 do
    begin
      if (not Table1.findkey([e1.text]) and (not Table1.findkey([copy(checklistbox1.items[i],1,4)])) 
      and (ChecklistBox1.checked[i]) then
          begin
            table1.insert;
            table1.fieldbyname('Nummdt').asstring:=edit1.Text;
            table1.fieldbyname('Chap').asstring:=copy(checklistbox1.items[i],1,4);
            table1.fieldbyname('Annee').asstring:=Combobox1.text;
            table1.fieldbyname('Mois').asstring:=Combobox2.text;
            table1.Post;
          end;