FOR EACH ... ENDFOR Command

Visual FoxPro 9.0 SP2


FOR EACH Var [AS Type [OF Class Library]] IN Group [FOXOBJECT] Commands [EXIT] [LOOP] ENDFOR \| NEXT [Var]

Parameters

Var: A variable or array element used to iterate through the elements of Group.

Type: A base class, class name, or type library. (For Intellisense only)

Class Library: Class library containing the base class, class name, or type library specified with Type. (For Intellisense only)

Group: A Visual FoxPro array, an OLE array, a Visual FoxPro collection, or an OLE collection.

FOXOBJECT: Specifies that the variable or array element Var will contain only native (not COM) Visual FoxPro objects.

Commands: Specifies the Visual FoxPro commands to be executed for each element in Group. Commands can include any number of commands.

EXIT: Transfers control from within the FOR EACH ... ENDFOR loop to the command immediately following ENDFOR. You can place EXIT anywhere between FOR EACH and ENDFOR.

LOOP: Returns control directly back to the FOR EACH clause without executing the statements between LOOP and ENDFOR. LOOP can be placed anywhere between FOR EACH and ENDFOR.

Examples

The following examples demonstrate how FOR EACH is used to enumerate elements in a Visual FoxPro array, an OLE array, and a set command buttons assigned to an object array.

In the following example, a Visual FoxPro variable array is created and FOR EACH is used to display the contents of each element in the array.

	Copy Code
DIMENSION cMyArray(3) cMyArray[1] = 'A' cMyArray[2] = 'B' cMyArray[3] = 'C' FOR EACH cMyVar IN cMyArray ? cMyVar ENDFOR

In the following example, an instance of Microsoft Excel is created, and a new workbook is added. FOR EACH is used to display the name of each worksheet in the workbook. This example requires that Microsoft Excel be properly installed on the machine on which the example is run.

	Copy Code
oExcel = CREATE("Excel.Application") oExcel.Workbooks.ADD FOR EACH oMyVar IN oExcel.sheets ? oMyVar.name NEXT oMyVar

In the following example, five command buttons are placed on a form. FOR EACH is used to display the buttons on the form and specify the captions, font styles and positions of each button.

	Copy Code
PUBLIC oMyObject oMyObject = CREATEOBJECT("frmTest") oMyObject.SHOW DEFINE CLASS frmTest AS FORM Height = 200 DIMENSION MyArray[5] PROCEDURE Init FOR i = 1 to 5 THIS.AddObject('THIS.MyArray[i]',; 'COMMANDBUTTON') ENDFOR **** FOR EACH - NEXT ** FOR EACH oButton IN THIS.MyArray oButton.Visible = .T. NEXT ** FOR EACH - NEXT element ** FOR EACH oButton IN THIS.MyArray oButton.FontBold = .T. NEXT obutton j = 1 ** FOR EACH - ENDFOR **** FOR EACH oButton IN THIS.MyArray oButton.top = j * 30 j = j + 1 ENDFOR **** FOR EACH - ENDFOR element ** FOR EACH oButton IN THIS.MyArray oButton.FontItalic = .T. ENDFOR obutton j = 1 ** EXIT ** FOR EACH oButton IN THIS.MyArray oButton.Caption = "test" + str(j) j = j+1 IF j > 3 EXIT ENDIF NEXT j = 1 ** LOOP **** FOR EACH oButton IN THIS.MyArray IF j > 3 LOOP ENDIF j = j + 1 oButton.Left = 25 NEXT ENDPROC ENDDEFINE

Copy Code

PUBLIC oMyObject
oMyObject = CREATEOBJECT("frmTest")
oMyObject.SHOW
DEFINE CLASS frmTest AS FORM
Height = 200
DIMENSION MyArray[5]
   PROCEDURE Init
      FOR i = 1 to 5
         THIS.AddObject('THIS.MyArray[i]',;
            'COMMANDBUTTON')
      ENDFOR      
      ****** FOR EACH - NEXT ******
      FOR EACH oButton IN THIS.MyArray
         oButton.Visible = .T.
      NEXT
      
      ****** FOR EACH - NEXT element  ******
      FOR EACH oButton IN THIS.MyArray
         oButton.FontBold = .T.
      NEXT obutton
      j = 1
      ****** FOR EACH - ENDFOR ******
      FOR EACH oButton IN THIS.MyArray
         oButton.top = j * 30
         j = j + 1
      ENDFOR   
      
      ****** FOR EACH - ENDFOR element ******
      FOR EACH oButton IN THIS.MyArray
         oButton.FontItalic = .T.
      ENDFOR obutton
      
      j = 1
      ****** EXIT  ******
      FOR EACH oButton IN THIS.MyArray
         oButton.Caption = "test" + str(j)
         j = j+1
         IF j > 3 
            EXIT
         ENDIF
      NEXT
      
      j = 1
      ****** LOOP  ******
      FOR EACH oButton IN THIS.MyArray
         IF j > 3
            LOOP
         ENDIF
         j = j + 1
         oButton.Left = 25
      NEXT
   ENDPROC
ENDDEFINE

FOR EACH ... ENDFOR Command

Parameters

Examples

See Also

Reference

Other Resources