[Résolu] Collection d'objets vide...

Marsh Posté le 01-09-2003 à 15:04:15

Bonjour, j'ai un problème avec ce code :

Citation :

Dim l_documents As Collection
Dim idx As Integer

'l_ConfDef.LinkNames est du type Collection
Set l_Doc = l_ConfDef.LinkNames

'Je veux connaitre le nombre d'objets dans ma collection
idx = l_Doc.Count

Le programme plante parfois lorsque la collection retournée par l_ConfDef.LinkNames est "nulle" (par ailleurs, existe-t-il l'équivalent du "NULL" du C en VB ?).
Ce n'est pas l'affectation qui plante, mais l'appel de la méthode Count sur l'objet l_Doc.
D'où ma question : comment tester que le nombre d'objets présent dans une collection est égal à zéro ?

Merci !

Message édité par maestun le 01-09-2003 à 15:20:45

Reply

Marsh Posté le 01-09-2003 à 15:04:15

Reply

Marsh Posté le 01-09-2003 à 15:07:06

Dim l_documents As Collection
Dim idx As Integer

idx = 0
'l_ConfDef.LinkNames est du type Collection
Set l_Doc = l_ConfDef.LinkNames

'Je veux connaitre le nombre d'objets dans ma collection
if not l_Doc is nothing then idx = l_Doc.Count

Message édité par Poipoi le 01-09-2003 à 15:08:25

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Marsh Posté le 01-09-2003 à 15:15:33

Poipoi a écrit :

Dim l_documents As Collection
Dim idx As Integer

idx = 0
'l_ConfDef.LinkNames est du type Collection
Set l_Doc = l_ConfDef.LinkNames

'Je veux connaitre le nombre d'objets dans ma collection
if not l_Doc is nothing then idx = l_Doc.Count

[:yaissev]
Ca marche maintenant ! Je ne connaissais pas le mot-clé "Is Nothing" (newb inside).
Merci à toi