Discussion :

[samidz2014]

Bonjour,

Je travaille sur une application avec Delphi 7 et TurboDB comme SGBD, quand je compile tous vas bien, mais quand je fais les clicks (consécutif) Supprimer puis Ajouter je reçois le message d'erreur suivant:



Je reçois ce message depuis que j'ai ajouté une autre table à ma base de données.

[tourlourou]

Accès à un objet libéré ou non encore créé ? (apparemment, lecture d'un pointeur nul)

[samidz2014]

Accès à un objet libéré ou non encore créé ? (apparemment, lecture d'un pointeur nul)

merci

Salut,

Je vais essayer d'expliquer:

Ma ancienne BDD est : TArchive, TDirection, TSalle_Archive, TType_Archive, TEtat_Archive, TLangue_Archive.
TArchive c'est la table qui contient les clés étrangères des autres tables.

Ma nouvelle BDD est : J'ai ajouté une autre table TEmploye qui contien aussi les clés étrangères des autre tables sauf TArchive bien sûr.

Moi je pense que l'utilisation des autres tables par deux (02) autres table (TArchive et TEmploye ) dans une même application est l'origine de cette erreur!

Est-ce possible??
Et si oui, comment faire pour résoudre ce problème? Et merci.

[tourlourou]

Qu'est-ce qui a changé dans le code chargé des suppressions et insertions, susceptible d'entraîner l'erreur actuelle que tu n'avais pas auparavant ?
Il faudrait voir un peu de code, non ?

[samidz2014]

Qu'est-ce qui a changé dans le code chargé des suppressions et insertions, susceptible d'entraîner l'erreur actuelle que tu n'avais pas auparavant ?
Il faudrait voir un peu de code, non ?

J'ai rien changé, mais j'ai ajouté deux code (supprimer et ajouter) pour la nouvelle table TEmploye.

Boutons Supp et Ajout pour TArchive:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFSupArchive.W7ToolButton1Click(Sender: TObject);
begin
Principale.TArchive.Delete;
Principale.W7ToolButton15Click(Sender);//calcul le nombre d'enregistrement dans le DBGrid.
Close;
end;
 
procedure TPrincipale.W7ToolButton6Click(Sender: TObject);
begin
TArchive.insert;
AjouModif.PlannerDBMaskDatePicker1.Date:=(date());
AjouModif.showmodal;
end;

Boutons Supp et Ajout pour TEmploye:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFSupEmpl.W7ToolButton2Click(Sender: TObject);
begin
Principale.TEmploye.Delete;
Principale.W7ToolButton26Click(Sender);//calcul le nombre d'enregistrement dans le DBGrid.
Close;
end;
 
procedure TPrincipale.W7ToolButton21Click(Sender: TObject);
begin
TEmploye.insert;
AjouModifEmp.PlannerDBMaskDatePicker1.Date:=(date());
AjouModifEmp.showmodal;
end;

Apercu:

[ShaiLeTroll]

la variable "Principale" est-elle correctement affectée ? cela ne serait pas elle qui serait à nil ?
Les variables globales, c'est le MAL !

Il semble que tes objets Tables sont sur la fiche Principale !
Un DataModule aurait été plus appoprié !

Comment fait tu pour t'y retrouver avec ToolButton1, ToolButton15, ToolButton6, ToolButton2, ToolButton26, ToolButton21 ...
C'est immaintenable !

Qu'une fenêtre secondaire appel le gestionnaire du Click de la fenêtre principale,
ce n'est pas très élégant, c'est un couplage fort qui rend ton code sensible à ce genre d'instabilité
De plus tu passes au Click un Sender qui n'est pas le bon !

As-tu bien instancié les fenêtres AjouModif et AjouModifEmp ?
surement de vilains CreateForm dans le DPR !

juste pour déboggueur modifie ton code ainsi



Boutons Supp et Ajout pour TArchive:

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
25
procedure TFSupArchive.W7ToolButton1Click(Sender: TObject);
begin
  if not Assigned(Principale) then
   ShowMessage('Principale est nil');
 
  if not Assigned(Principale.TArchive) then
   ShowMessage('Principale.TArchive est nil');
 
Principale.TArchive.Delete;
Principale.W7ToolButton15Click(Principale.W7ToolButton15);//calcul le nombre d'enregistrement dans le DBGrid.
Close;
end;
 
procedure TPrincipale.W7ToolButton6Click(Sender: TObject);
begin
  if not Assigned(TArchive) then
   ShowMessage('TArchive est nil');
 
  if not Assigned(AjouModif ) then
   ShowMessage('AjouModif est nil');
 
TArchive.insert;
AjouModif.PlannerDBMaskDatePicker1.Date:=(date());
AjouModif.showmodal;
end;

Boutons Supp et Ajout pour TEmploye:

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
25
procedure TFSupEmpl.W7ToolButton2Click(Sender: TObject);
begin
  if not Assigned(Principale) then
   ShowMessage('Principale est nil');
 
  if not Assigned(Principale.TEmploye) then
   ShowMessage('Principale.TEmploye est nil');
 
Principale.TEmploye.Delete;
Principale.W7ToolButton26Click(Principale.W7ToolButton26Click);//calcul le nombre d'enregistrement dans le DBGrid.
Close;
end;
 
procedure TPrincipale.W7ToolButton21Click(Sender: TObject);
begin
  if not Assigned(TEmploye) then
   ShowMessage('TEmploye est nil');
 
  if not Assigned(AjouModifEmp) then
   ShowMessage('AjouModifEmpest nil');
 
TEmploye.insert;
AjouModifEmp.PlannerDBMaskDatePicker1.Date:=(date());
AjouModifEmp.showmodal;
end;

[samidz2014]

salut,

Je pense que la réponse est moins difficile, car je peux ajouter et modifier et même faire la recherche normalement, sauf quand je supprime un enregistrement après j'assai d'ajouter un autre, là je reçois le message d'erreur!

[Ph. B.]

Je pense que la réponse est moins difficile, car je peux ajouter et modifier et même faire la recherche normalement, sauf quand je supprime un enregistrement après j'assai d'ajouter un autre, là je reçois le message d'erreur!

Vous lancez l'application en mode Debug. Quand l'exception est déclenchée, vous regardez la pile d'appel des fonctions et procédures et en cliquant sur chacun d'entre elles, vous verrez par où "est passée" l'application et quelle variable/propriété/objet non initialisée a provoqué l'erreur.
Vous pouvez aussi mettre un point d'arrêt dans la méthode d'insertion et que vous suivez pas à pas (F8/F7) pour voir quelle instruction précise déclenche l'exception...

[samidz2014]

Salut,

J'ai remarqué que l'erreur se déclanche quand je click sur l'un des ligne de DBGRID avant de cliquer sur le bouton 'Ajouter', alors j'ai pensé à le désélectionner avant l'appelle de la fenêtre 'Ajouter', alors j'ai ajouté ce code dans le OnClick du Bouton 'Ajouter':

Code :

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

Principale.RzDBGrid2.SelectedRows.Clear;

Code :

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

1
2
3
4
5
6
7
8
procedure TPrincipale.W7ToolButton21Click(Sender: TObject);
begin
Principale.RzDBGrid2.SelectedRows.Clear;
TEmploye.insert;
AjouModifEmp.tag := 1;
AjouModifEmp.PlannerDBMaskDatePicker1.Date:=(date());
AjouModifEmp.showmodal;
end;

Normalement c'est réglé