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;