Discussion :

[Bernard B]

Bonjour,

Je suis sous w10 et Delphi 10.

Je crée un objet qui doit contenir entre autre 2 TStringlist voici la déclaration de mon objet :

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
  TScriptPTE = class (TObject)
  private
     FNombreDeBlocs : Integer;
     LeFichier : TStringList;
     procedure AnalyserPTE;
     function CrochetteNomDuBlock(LeNom : String) : String;
  public
    { Déclarations publiques }
    LesBlocks : TStringsList;
    function ValeurClef(Block,clef : string) : string;overload;
    function ValeurClef(clef : string) : string;overload;
    procedure FixerValeurClef(Block,clef,valeur : string);
    procedure InsererBloc(BlockPrecedent, ContenuDuBlock : string);
    function ContenuBloc(Block : String) : string;
    procedure EnregistrePTE(NomFichier : string);
    function ChangerImageBlockSlide(Block, NouvelleImage,NouvelleLegende : String) : Boolean;
//    function  ListeObjectDuBlock(Block : String) : TStringList;
    property NombreDeBlocs : Integer read FNombreDeBlocs;
  published
    constructor Create(NomScript : string);
    destructor destruction;
  end;

le constructor est déclaré ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
constructor TScriptPTE.Create(NomScript : string);
begin
     inherited Create;
     LeFichier := TStringList.Create;
     LesBlocks := TStringList.Create;
     LeFichier.LoadFromFile(NomScript);
     FNombreDeBlocs:= LesBlocks.Count;
     AnalyserPTE;
end;

A la compilation tout se passe bien, à l'execution plantage sur la ligne : LeFichier := TStringList.Create;

J'ai mis cet objet dans une unité dédiée, avant il était dans le fichier de ma fenêtre principale et je n'avais pas de soucis !!
Quelqu'un peut-il m'expliquer ce qui pose problème ?

Merci
Bernard

[Cirec]

Salut,

je suis étonné que ce code compile !!!

plusieurs choses m'ont sautés aux yeux
j'ai donc repris le code vite fait et testé bien sur
les correction sont marquées en fin de ligne comme ceci : // <------------- ici

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
type
  TScriptPTE = class (TObject)
  private
     FNombreDeBlocs : Integer;
     LeFichier : TStringList;
     procedure AnalyserPTE;
     function CrochetteNomDuBlock(LeNom : String) : String;
  public
    { Déclarations publiques }
    LesBlocks : TStringList;   // <------------- ici
    function ValeurClef(Block,clef : string) : string;overload;
    function ValeurClef(clef : string) : string;overload;
    procedure FixerValeurClef(Block,clef,valeur : string);
    procedure InsererBloc(BlockPrecedent, ContenuDuBlock : string);
    function ContenuBloc(Block : String) : string;
    procedure EnregistrePTE(NomFichier : string);
    function ChangerImageBlockSlide(Block, NouvelleImage,NouvelleLegende : String) : Boolean;
//    function  ListeObjectDuBlock(Block : String) : TStringList;
    property NombreDeBlocs : Integer read FNombreDeBlocs;
  //published                               // <------------- ici
    constructor Create(NomScript : string);
    destructor Destroy; override;           // <------------- ici
  end;

et le code du Destructeur:

Code :

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

1
2
3
4
5
6
destructor TScriptPTE.Destroy;
begin
  LeFichier.Free;
  LesBlocks.Free;
  inherited Destroy;
end;

voilà tout fonctionne et les objets crées sont bien libérés (les 2 TStringList)

[Bernard B]

Bonjour Cirec et merci de ta réponse.

Pour le TString(s)List c'était juste une erreur de retranscription dans le post.
Pour le Destroy effectivement je ne sais pas si l'on peut le renommer ? Dans tous les cas ça compilait !

J'ai identifié le pb, sans en comprendre la raison :
La prise en compte de tes modifs n'ayant rien changé, j'ai créé un nouveau projet juste pour tester mon objet et là surprise sans rien changer
tout fonctionne !!
C'est la form appelante qui déclenche le pb. Pourquoi ?
J'ai ramené remis tous mes boutons et autres objet d'interface dans la nouvelle form et tout compile et tourne normalement !

Ce n'est pas très satisfaisant pour l'esprit mais je peux avancer !

[Andnotor]

C'est la form appelante qui déclenche le pb. Pourquoi ?

C'est certainement une erreur de frappe, tu appelles une méthode sur l'instance non-initialisée plutôt que sur sa classe :

Code :

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

1
2
ScriptPTE := ScriptPTE.Create;   //Faux
ScriptPTE := TScriptPTE.Create;  //Correct

[Bernard B]

Andnotor tu es trop fort !!!

Effectivement et c'est même pire j'ai simplement écrit : ScriptPTE.Create;

Bien j'essaierais de faire mieux la prochaine fois.

Merci encore
Bernard