Discussion :

[AODRENN]

Comment tester si un objet a ete cree avec Create?
Exemple
J'ai un stringlist

Code :

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

1
2
 
wListContact_Action := TStringList.Create;

Par contre je voudrais savoir comment faire poir par exmeple:

Code :

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

1
2
3
 
If wListContact_Action = <existe>
then.....

[chtiot]

<> nil non ?

[e-ric]

Salut

Yes but...
Si l'objet a été libéré :

Code :

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

1
2
 
wListContact_Action.Free;

et que la référence n'a pas été affectée à Nil après, le test est invalide. Pensez donc à utiliser FreeAndNil au lieu de Free (sauf pour les fiches, voir release), ce qui garantit que la référence est affectée à Nil.

Guten Abend

e-ric

[NoisetteProd]

ou bien utiliser Assigned

Teste un pointeur nil (non affecté)ou une variable procédurale.

function Assigned(constP):Boolean;

Description
Utilisez Assigned pour déterminer si le pointeur ou la procédure référencée par P a la valeur nil.P doit être une référence variable d'un pointeur ou d'un type procédural.Assigned(P)correspond au test P<>nil dans le cas d'une variable pointeur et à@P <>nil dans le cas d'une variable procédurale.

Assigned renvoie false si la valeur nil est attribuée àP,et true dans le cas contraire

Remarque : Assigned ne peut détecter un pointeur devenu incorrect,autrement dit différent de nil et pointant sur des données devenues non valides.Par exemple,dans le code exemple d'Assigned,Assigned ne détecte pas que P n'est pas un pointeur valide.

soit

Code :

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

If Assigned(wListContact_Action) then

[AODRENN]

Merci a vous deux
et merci a Noisette Prod car c'est cette version qui fonctionne