Exception EStackOverflow

Version imprimable

28/12/2005, 18h53
questionneuse

Exception EStackOverflow

voila j'ai un problème: une fentre d'exception s'ouvre une fois que j'ai exécuté mon application et que je la ferme .
En fait elle s'execute trés bien mais lorsque je la ferme la fenetre d'exception s'ouvre avec ceci comme message:

Citation:

Exception EStackOverflow dans le module ProjectTPEdit.exe a 00003899.
Débordement de pile

Alors je vois pas c'est dût a quoi , peut etre est ce une exception fréquente dû a tel ou tel mauvaise syntaxe :?

Si quelqu'un peut m'éclairer sur le sujet :wink:
28/12/2005, 18h55
bjl

Bonjour,

c'est un débordement de pile : en général une boucle qui ne s'arrète jamais et qui remplit toute la mémoire.
28/12/2005, 19h00
questionneuse

ben je me rapelle pas que je fais une boucle :(
28/12/2005, 19h06
bjl

As tu fais un évènement OnCLose ou OncloseQuery ?
28/12/2005, 19h08
questionneuse

non ,j'ai pas traité l'évènement close .
28/12/2005, 19h12
bjl

Tu as surchargé le destroy de ton composant ?

comment as tu fait ?

pas destroy(self); ??????
28/12/2005, 19h18
questionneuse
oui j'ai fait :
Code:

1 2 3 4 destructor TPslEditEx.destroy; begin self.destroy; end;
Lool, je viens de changer en faisant comme tu m'as montré pour le create et ca marche
Code:

1 2 3 4 destructor TPslEditEx.destroy; begin inherited destroy; end;
question bete : je crois que j'ai pas bien compris a quoi sert ce inherited :?:
28/12/2005, 19h23
questionneuse

par contre j'ai un autre problème , j'ai ajouté mon composant dans la palette c'est ok on le voit et je peus meme l'ajouter a ma fiche main mais le problème c'est que dés que j'essaye de le supprimer de ma fiche une fois l'avoir mis il me dit

Citation:

débordement de pile - enregistrez votre travail et relancez delphi

Et dés fois il quitte carrément delphi :?

tu appelais en boucle la procedure destroy de ton composant mais tu ne le détruisais jamais.

Code:

1
2
3
4
5
6
Inherited sert à indiquer que la méthode appelée est celle de l'ancêtre.
Contructor Create(aowner : Tcomponent);
Begin
Inherited create(aowner); // appelle le constructeur ancètre pour création de la base du composant. il est placé en tète de procédure
...... // création de sous composants et initialisation de variables
End;

Code:

1
2
3
4
5
destructor destroy;
Begin
...... // destruction des sous composants
inherited destroy; // détruit la base du composant. placé à la fin de l aprocédure
end;

fais voir le code de ton composant

ok j'ai compris :wink:

voici le code du composant:

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
unit UPslEditEx;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Types,StdCtrls;
 
type
        TPslEditOption=(eoValidateOnReturn, eoRestoreOnEscape);
        TPslEditOptions = set of TPslEditOption;
        TPslEditEx = class(TEdit)
 
        procedure doOnValidate ; virtual;
        procedure doOnEscape ; virtual;
 
 
private
    { Déclarations privées }
    FOptions : TPslEditOptions; // Option à rajouter pour le nouveau composant
    FOnValidate : TNotifyEvent; // evenement à rajouter pour le nouveau composant.
    FOnEscape : TNotifyEvent; //evenement à rajouter
 
protected
{ Déclarations protégées }
procedure KeyPress(var Key: Char); override;
//procedure loaded; override ;
 
public
    { Déclarations publiques }
    FLastText : String;
constructor create (AOwner : TComponent); override;
destructor destroy ; override;
 
 
published
 property Options: TPslEditOptions read FOptions write FOptions;
 property OnValidate : TNotifyEvent read FOnValidate write FOnValidate;
 property OnEscape : TNotifyEvent read FOnEscape write FOnEscape;
 
 
end; // end des declarations
 
implementation
 
procedure TPslEditEx.KeyPress(var Key: Char);
begin
   { A completer }
    if Key=#13 then doOnValidate
    else if Key=#27 then doOnEscape
    else inherited;
end;
 
procedure TPslEditEx.doOnValidate;
begin
     If assigned(FOnValidate) then FOnValidate(self);
end;
 
procedure TPslEditEx.doOnEscape;
begin
   If assigned(FOnEscape) then FOnEscape(self);
end;
 
//procedure loaded
//begin
{ A completer }
//end;
 
constructor TPslEditEx.create(AOwner : TComponent);
begin
inherited create(AOwner);
end;
 
destructor TPslEditEx.destroy;
begin
   inherited destroy;
end;
 
end.

28/12/2005, 20h20
bjl

2 trucs bizarres ....

1) les procedures
procedure doOnValidate ; virtual;
procedure doOnEscape ; virtual;

devraient être en protected { Déclarations protégées }

2)

tu dis que ton composant est dans la palette....

comment as tu fais pour le mettre ? il devrait y avoir une procedure register et son implémentation...
28/12/2005, 20h51
questionneuse

oui ce register est dans le paquet conception, c'est l'unité registerComposant ...

Tu devrais avoir

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
unit UPslEditEx;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Types,StdCtrls;
 
type
        TPslEditOption=(eoValidateOnReturn, eoRestoreOnEscape);
        TPslEditOptions = set of TPslEditOption;
 
 
  TPslEditEx = class(TEdit)
private
    { Déclarations privées }
.
.
.
.
.
.
published
 property Options: TPslEditOptions read FOptions write FOptions;
 property OnValidate : TNotifyEvent read FOnValidate write FOnValidate;
 property OnEscape : TNotifyEvent read FOnEscape write FOnEscape;
end; // end des declarations
 
procedure Register; // une procedure register
 
implementation
 
procedure TPslEditEx.KeyPress(var Key: Char);
.
.
.
.
.
destructor TPslEditEx.destroy;
begin
   inherited destroy;
end;
 
procedure Register; //implementation de la procedure register
begin
  RegisterComponents('Nom de l'onglet de la palettre', [TPslEditEx]);
end;
 
 
end.

28/12/2005, 21h33
questionneuse

ah bon ?
mais dans un des tutoriaux de dévolppez.com pour ajouter un composant a la palette il disait qu'il fallait ajouter un package de conception dans lequel on met une unité Registercomposant qui contient cette procédure dont tu parle :

http://sjrd.developpez.com/delphi/de...ge=utilisation

ben en fait ca le met dans la palette mais il y a un bug quant je veus le supprimer de la fiche aprés l'avoir ajouter dedans.

Si c'est mieux de pas mettre de paquets de conception, je sais pas
:?:
28/12/2005, 21h56
bjl

C'est une méthode ue je connaissais pas mais çà devrais marcher.

qu'as tu dans cette unit ?

après avoir fait des modifs, as tu pensé a recompiler ton package ? hors F9.

J'ai ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
unit RegComposant;
 
interface
 
uses
  Classes, UPslEditEx;
 
procedure Register;
 
implementation
 
procedure Register;
begin
RegisterComponents('Tutoriel', [TPslEditEx]);
end;
 
end.

28/12/2005, 22h29
bjl

ça a l'air OK :

Après avoir fait des modifs, as tu pensé a recompiler ton package ? (hors F9).
28/12/2005, 22h35
questionneuse

non :oops:

ben maintenant que je l'ai fait ca marche ben t'as vraiemnt réponse a tout :ccool: