Discussion :

[NGeVtC87]

Bonjour,

Je développe sous delphi 2005. J'ai dans mon programme une Frame A TA = class (TFrame). Cette frame est incluse dans une autre frame princiaple TPrincipale = class (TFrame) de manière assez basique. Le code du dfm

Code :

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

1
2
3
4
5
 
inherited Prncipale: TPrincipale
...
...
  inline A : TA

J'ai effectué des modifications dans ma classe A et j'ai eu une erreur Access Violation. J'ai investigué ma modification et puis je l'ai réduite à une simple affectation de variable.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
TA = class (TFrame)
...
...
procedure proc;
var
 _temp  : integer;
begin
...
_temp := 5;
....

J'ai quand même cette Access Viloation au bout de 2 ou 3 appels à la méthode qui contient cette instruction et dés que je l'enlève (l'instruction d'affectation) le programme ne me retourne plus d'erreur même après plusieurs appels. Je vois pas du tout ce qui pourrait provoquer cette violation d’accès. Si quelqu'un a une idée ça m'aiderait beaucoup.

le message d'erreur est

Code :

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

 Le projet a déclenché la classe d'exception EAccessViolation avec le message "violation d'accès à l'adresse 0E2417525 " écriture dans l'adresse ...

Merci

[retwas]

Peux tu développer ton code ? Ou est appelée cette procédure ? Ou et quand est créé ta FrameA ?

[NGeVtC87]

Bonjour,

alors pour ma procédure c'est plutôt une procédure d'initialisation. Il y a bien une capture d'exception dans la procédure. mais qui n'est pas lié à cette instruction.

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
 
TA = class (TFrame)
...
...
procedure proc;
var
 _temp  : integer;
begin
try
...
_temp := 5;
....
 
except on E: Exception do ShowMessage(E.Message)
end;

pour ce qui est de l'appel de cette procédure elle est appelé par la classe Principale

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   TPrincipale = class (TFrame)
   a : TA;
...
procedure _init;
begin
...
   a.proc
...
end;

Le souci c'est que je vois pas comment cette petite modif peut influencer l'exécution du programme ou l'allocation mémoire avec cette Access Violation

[Paul TOTH]

vu que tu nous donne un code totalement hors contexte avec ce qui te semble être une erreur et qui n'est pas même compilable en l'état, il est difficile de te répondre.

je te propose de prendre un projet vierge, dans lequel tu places deux frames et une fonction bidon qui reproduit l'erreur et de poster le tout, là on pourra te dire où est le problème.

[NGeVtC87]

Je m'excuse. mais mon programme est très long et avec plusieurs fonctionnalités. Ca serait pas compréhensible de le mettre ici. C'est pour ça que j'ai essayé de montrer les parties modifiées mais c'est pas plus claire c'est vrai.

[anapurna]

salut

je reprend une parti de ton code

Code :

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

1
2
3
4
5
6
7
8
procedure _init;
begin
...  // il manque pas  a := TA.Create(...) ;
   a.proc ;// est tu sure que "a" est instancié a ce moment là ?
      // si j'ai bien compris c'est un tframe dans un tframe  
...
end;

[Andnotor]

C'est pas très clair en effet.

Ce qui pourrait se passer en admettant que ce soit TPrincipale._Init est que cette méthode soit appelée depuis un constructeur modifié dans lequel :

• inherited est manquant ;
• l'appel à _Init se fait avant inherited.

Dans le premier cas a ne sera jamais instancié, dans le deuxième, trop tard

C'est un problème qui ne se verra qu'en runtime.