Variable TStrings globale dans Unité

**mick605** · 05/08/2009, 22h03

Salut

Je suis sur un programme la (que personne connais

) et j'ai une unité dans laquelle j'ai une variable globale de type TStrings. Dans cette unité, j'ai quelques procedures, dont une qui est chargée d'ajouter une ligne a ce TStrings . J'utilise donc la fonction Add(string) : integer;

Lors de la compilation, pas de problemes. Mais lors de l'exécution, il y a un message d'erreur qui s'affiche sur cette ligne avec Add :

---------------------------
Le projet xxxxx.exe a déclenché la classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 0046CB41 dans le module xxxxx.exe'. Lecture de l'adresse 00000000'.
---------------------------

Quelqu'un a-t-il une idée d'ou ca peut venir ?

**pepi22** · 06/08/2009, 01h07

Vous utilisez TString pour quelle raison?

Utilisez plutôt TStringList.

**mick605** · 06/08/2009, 01h15

Envoyé par pepi22

Vous utilisez TString pour quelle raison?

Utilisez plutôt TStringList.

Franchement, j'en sais rien. J'ai trouvé ca, ca marchait avant, donc je continuais avec.

Je viens de changer donc pour une TStringList, et toujours le meme probleme ! Add ne passe pas a l'execution !

**Kaféine** · 06/08/2009, 01h38

la variable est assignée au moins? si la variable est égale à nil c'est normal que Add plante.
enfin c'est ce qui me viens à l'esprit à 1h30 du mat

**sat83** · 06/08/2009, 09h52

Effectivement, apparemment ta variable n'est pas allouée! Avant d'utiliser un objet, il faut toujours le créer (Create),
et le détruire lorsque tu n'en a plus besoin (Free)

Il faut donc :

Code :

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

1
2
3
4
5
 
myStringList := TStringList.Create;
//[...]
//IMPORTANT : libérer l'objet lorsque tu ne l'utilise plus:
myStringList.Free;

**Macadoshis** · 06/08/2009, 12h10

mick605, le tour du quartier à cloche pied !

**ShaiLeTroll** · 06/08/2009, 12h41

Envoyé par sat83

Effectivement, apparemment ta variable n'est pas allouée! Avant d'utiliser un objet, il faut toujours le créer (Create),
et le détruire lorsque tu n'en a plus besoin (Free)

d'où la Pattern Singleton, si chiante à écrire en D7
Avec D200x et les propriétés de classe, est-ce plus simple ? et sans finalization ?