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