indice hors limite (-1)

Question

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

dominique.stock · Answer

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

Rematrix · Answer

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

arkoub · Answer

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.

Indice hors limite (-1)

3 réponses

Votre réponse

Discussions similaires