Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
FOR EACH bug
Message
 
To
06/03/2003 01:40:15
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00762002
Message ID:
00762066
Views:
13
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform