Discussion :

[sgmsg]

Bonjour a tous

J'ai un souci

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
type tSuperListeDouble=class(tStringlist)
    private
        vNoms:tstringlist;
//...
    public
        constructor create(Noms:string;Separateur:Char=',');
//...
    end;
 
implementation
 
constructor tSuperListeDouble.create(Noms:string;Separateur:Char=',');
begin
   vNoms:=tstringlist.create; (**Ça plante ici!!! *)
//...
end;

Dès la création de vNoms, le message d'erreur suivant apparait: Le projet ... a créé une classe d'exception EAccessViolation avec le message "Violation d'accès à l'adresse...

l'appel du projet se fait comme suit:

Code :

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

1
2
3
4
      ...
      freeandnil(SuperListeDouble);//.Free;
      Donnees4D.Donnee3D[ijm].DonneeRelative[i].Create(Numerique.DelimitedText);//Appel générant le plantage
      ...

Merci d'avance

[Andnotor]

Et avec inherited Create; avant la création de vNoms ?

[sgmsg]

Merci...

J'ai pas eu le temps d'effacer le message...

Simplement

Code :

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

Donnees4D.Donnee3D[ijm].DonneeRelative[i]:=tsuperlistdouble.Create(Numerique.DelimitedText)

Tu es vraiment rapide

Merci encore