list index out of bounds

bonsoir

j'essai d'ajouter des valeur à ma table de la façon suivante lors du click d'aun bouton:
DM1.IBQajoutclient.Active:=false;
DM1.IBQajoutclient.Params[1].value:=editnomclient.text;
DM1.IBQajoutclient.Params[2].value:=editprenomclient.text;
DM1.IBQajoutclient.Params[3].value:=editadresseclient.text;
DM1.IBQajoutclient.Params[4].value:=edittelclient.text;
DM1.IBQajoutclient.Params[5].value:=editfaxclient.text;
DM1.IBQajoutclient.Params[6].value:=editgsmclient.text;
DM1.IBQajoutclient.Params[7].value:=editemailclient.text;
DM1.IBQajoutclient.Params[8].value:=editcodeclient.text;
DM1.IBQajoutclient.Active:=true;

tous marche trés bien jusqu'aumoment ou je valide l'ajout, il me génère l'erreur 'list index out of bounds(8)'
sachant que ma table contienne 8 champs!!!

salut

tu depasse la liste de tes paramettre
le premier indice commence a 0

Code:

---

1 2 3 4 5 6 7 8 9 10 11

DM1.IBQajoutclient.Active:=false; DM1.IBQajoutclient.Params[0].value:=editnomclient.text; DM1.IBQajoutclient.Params[1].value:=editprenomclient.text; DM1.IBQajoutclient.Params[2].value:=editadresseclient.text; DM1.IBQajoutclient.Params[3].value:=edittelclient.text; DM1.IBQajoutclient.Params[4].value:=editfaxclient.text; DM1.IBQajoutclient.Params[5].value:=editgsmclient.text; DM1.IBQajoutclient.Params[6].value:=editemailclient.text; DM1.IBQajoutclient.Params[7].value:=editcodeclient.text; DM1.IBQajoutclient.Active:=true;

---

@+ Phil