Indice hors limite (-1)

arkoub Messages postés 10 Date d'inscription mardi 23 mai 2006 Statut Membre Dernière intervention 4 novembre 2009 - 29 avril 2008 à 11:40
arkoub Messages postés 10 Date d'inscription mardi 23 mai 2006 Statut Membre Dernière intervention 4 novembre 2009 - 30 avril 2008 à 16:43
je n'arrive pas à ajouter des enregistrements dans ma table
mais j'ai l'erreur indice hors limite (-1), j'ai bien eesayer de résoudre le probleme mais je n'y arrive pas. si quelqu'un pourra m'aider? merci d'avance
A voir également:

3 réponses

dominique.stock Messages postés 436 Date d'inscription vendredi 7 novembre 2003 Statut Membre Dernière intervention 8 octobre 2008 7
29 avril 2008 à 11:43
Bonjour,
Sans code , cela va être difficile, à moins d'avoir une boule de cristal ...
indice hors limite :ce la peut être dû à un accés à un élément d'un tableau qui n'existe pas ...
Dom
0
Rematrix Messages postés 115 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 16 juillet 2008
29 avril 2008 à 16:18
On aime bien t'aider mais on ne sais rien de ton code, alors es ce que tu utilise un boucle alors tu supprime un, ça peut etre  élément d'un tableau ou d'une list qui n'existe pas comme a dit @[auteur/DOMINIQUESTOCK/190397.aspx dominique.stock ]une case [-1] surement alors que son minimum est [0].....

Matrix
0
arkoub Messages postés 10 Date d'inscription mardi 23 mai 2006 Statut Membre Dernière intervention 4 novembre 2009
30 avril 2008 à 16:43
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Menus, Mask, DBCtrls;

type
TForm1 = class(TForm)
RadioGroup3: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup4: TRadioGroup;
RadioGroup6: TRadioGroup;
RadioGroup5: TRadioGroup;
Label23: TLabel;
Label24: TLabel;
Label22: TLabel;
Label25: TLabel;
MainMenu1: TMainMenu;
Fichier1: TMenuItem;
RadioGroup10: TRadioGroup;
RadioGroup21: TRadioGroup;
RadioGroup7: TRadioGroup;
RadioGroup8: TRadioGroup;
RadioGroup9: TRadioGroup;
RadioGroup11: TRadioGroup;
Panel1: TPanel;
RadioGroup13: TRadioGroup;
DBRadioGroup13: TRadioGroup;
RadioGroup14: TRadioGroup;
RadioGroup15: TRadioGroup;
Panel2: TPanel;
RadioGroup16: TRadioGroup;
RadioGroup17: TRadioGroup;
RadioGroup18: TRadioGroup;
RadioGroup19: TRadioGroup;
Panel3: TPanel;
Quitter1: TMenuItem;
Button1: TButton;
DBEdit1: TDBEdit;
DBNavigator1: TDBNavigator;
DBEdit2: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit6: TDBEdit;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox5: TDBCheckBox;
DBCheckBox6: TDBCheckBox;
DBCheckBox7: TDBCheckBox;
DBCheckBox8: TDBCheckBox;
DBCheckBox9: TDBCheckBox;
DBCheckBox10: TDBCheckBox;
DBCheckBox11: TDBCheckBox;
DBCheckBox12: TDBCheckBox;
DBCheckBox13: TDBCheckBox;
DBCheckBox14: TDBCheckBox;
DBCheckBox15: TDBCheckBox;
DBCheckBox16: TDBCheckBox;
DBCheckBox17: TDBCheckBox;
DBCheckBox18: TDBCheckBox;
DBCheckBox19: TDBCheckBox;
DBCheckBox20: TDBCheckBox;
DBCheckBox21: TDBCheckBox;
DBCheckBox22: TDBCheckBox;
DBCheckBox23: TDBCheckBox;
DBCheckBox24: TDBCheckBox;
DBCheckBox25: TDBCheckBox;
DBCheckBox26: TDBCheckBox;
DBCheckBox28: TDBCheckBox;
DBCheckBox29: TDBCheckBox;
DBCheckBox27: TDBCheckBox;
DBCheckBox30: TDBCheckBox;
DBCheckBox31: TDBCheckBox;
DBMemo1: TDBMemo;
DBCheckBox32: TDBCheckBox;
DBCheckBox33: TDBCheckBox;
DBCheckBox34: TDBCheckBox;
DBMemo2: TDBMemo;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
DBLookupComboBox4: TDBLookupComboBox;
DBRadioGroup1: TDBRadioGroup;
RadioGroup1: TRadioGroup;
DBRadioGroup2: TDBRadioGroup;
DBNavigator2: TDBNavigator;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
procedure Quitter1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure DBRadioGroup1Change(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Quitter1Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

form1.close;

end;

procedure TForm1.DBRadioGroup1Change(Sender: TObject);
begin
if DBRadioGroup1.Items[DBRadioGroup1.ItemIndex] = 'Oui' then
begin
DBRadioGroup1.Columns:=1;
DBRadioGroup2.Visible := True;
DBCheckBox1.Visible := True;
DBCheckBox2.Visible := True;
DBCheckBox3.Visible := True;
DBCheckBox4.Visible := True;
DBCheckBox5.Visible := True;
DBCheckBox1.Checked:=False;
DBCheckBox2.Checked:=False;
DBCheckBox3.Checked:=False;
DBCheckBox4.Checked:=False;
DBCheckBox5.Checked:=False;
end
else
begin
DBRadioGroup1.Columns:=2;
DBRadioGroup2.Visible := False;
DBCheckBox1.Visible := False;
DBCheckBox2.Visible := False;
DBCheckBox3.Visible := False;
DBCheckBox4.Visible := False;
DBCheckBox5.Visible := False;
DBCheckBox1.Checked:=False;
DBCheckBox2.Checked:=False;
DBCheckBox3.Checked:=False;
DBCheckBox4.Checked:=False;
DBCheckBox5.Checked:=False;
end;
end;

end.
0