Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
FOR EACH bug
Message
 
À
06/03/2003 01:40:15
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
00762002
Message ID:
00762066
Vues:
12
Maybe not a bug, foreach doesn't work properly on other (COM) collections as well. I alway use foreach in a read only fashion.

Try this instead.
for i = 1 to oFrms.Count
	oFrms(1).Release
next
>Hi,
>
>I enjoy new collection class very much, but there is a bug I think. If objects are removed inside FOR EACH some of them are omitted.
>
>
>oFrms = createobject('collection')
>oFrms.Add(createobject('form'),'Form1')
>oFrms.Add(createobject('form'),'Form2')
>oFrms.Add(createobject('form'),'Form3')
>oFrms.Add(createobject('form'),'Form4')
>
>*** let's make forms visible
>local oFrm
>for each oFrm in oFrms
>	oFrm.Show
>next
>
>*** ok, now let's try close them
>for each oFrm in oFrms
>	oFrm.Release
>next
>
>*** two forms remains open :(
>messagebox(oFrms.Count)
>
>
>It behaves the same way with _SCREEN.Forms collection. I think it should be considered as bug and be corrected.
>
>Best,
>
>Janusz Czudek
>WORD Software
>www.wordsoft.com.pl
>jczudek@wordsoft.com.pl
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform