Discussion :

[pimouche]

Bonjour tout le monde,
J'ai un petit problème sur mon code, je développe une interface sur delphi XE2 et quand j’exécute j'ai ce message d'erreur:
"violation d'accés à l'adresse 0083C2C5 dans le module '...bin' lecture de l'adresse 0000004A"
Je ne vois pas ou est le problème.
Merci pour votre aide..........

[free07]

Bonjour,

Il faudrait que tu nous fasses voir les quelques lignes de code ou cela plante car une violation d'accès peut provenir de pas mal d'erreurs ou d'oublis ( par ex : accès à un objet non créé ? ...)

[ShaiLeTroll]

Comme l'adresse en petite "0000004A" c'est proche de "00000000" donc nil
C'est l'accès à une propriété d'un objet non instancié ou libéré par FreeAndNil

[pimouche]

Merci pour vos réponses, alors je débute sur Delphi donc voilà ce que j'ai fait:
je me suis mise en mode debug et quand je compile y'a aucune erreur mais quand j’exécute j'ai le message alors j'ai essayé de mettre en commentaire pour voir
et j'ai trouvé que c'était dans cette fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
with prcSelInfo do begin
      try
        Params[0].AsInteger := CurrentPlateId;
        Open;
        AssignValues(prcSelInfo, 'MNAGYTEMPERED = 0', VTSelInfoA);
        AssignValues(prcSelInfo, 'MNAGYTEMPERED = 1', VTSelInfoT);
      finally
        Close;
      end;
    end;

[ShaiLeTroll]

prcSelInfo a-t-elle bien des paramètres déclarés ?
AssignValues ? qu'est-ce que c'est ?
VTSelInfoA sont-ils instanciés, Est-ce que la valeur est différent de null

voici un code pour chercher l'erreur

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
if not Assigned(prcSelInfo) then
  ShowMessage('prcSelInfo');
 
    with prcSelInfo do 
    try
 
      if Params.Count >0 then
        ShowMessage('Params');
 
      Params[0].AsInteger := CurrentPlateId;
      Open;
 
      if not Assigned(VTSelInfoA) then
        ShowMessage('VTSelInfoA');
 
      AssignValues(prcSelInfo, 'MNAGYTEMPERED = 0', VTSelInfoA);
 
      if not Assigned(VTSelInfoT) then
        ShowMessage('VTSelInfoT');
 
      AssignValues(prcSelInfo, 'MNAGYTEMPERED = 1', VTSelInfoT);
    finally
      Close;
    end;

[anapurna]

salut

juste un doute sur l'utilité de cette ligne

Code :

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

1
2
 if Params.Count >0 then
        ShowMessage('Params');

si le nombre de paramètre est supérieur a zero cela ne pose aucun soucis d’accéder a PARAMS[0]
a l'inverse si les paramètre n'existe pas cela pourrez déclencher un plantage

[pimouche]

Bonjour à tous
Merci pour vos réponses, j'ai trouvé ou était le problème, en faite j'ai mis en place une procédure qui faisait appel à une table de la base de données
que je n'avais pas encore remplis !!!! et je n'avais pas rempli le fichier unit ucorrespondance;en faite c'était vraiment une problème de bibliothèque.
Bonne journée.
Merci encore.