The Cross-Platform xBase.
Demonstrating how to use the
FOR EACH command.
FOR EACH iterates with elements of data types that can be seen as a collection such as arrays, strings or objects.
$ hbrun foreach.prg ======================================================== before loop: ENUM= b before loop: a= one a= two a= three start: ENUM= one end: ENUM= one | index: 1 | value: one | base: A | isfirst: .T. | islast: .F. start: ENUM= two end: ENUM= TWO | index: 2 | value: TWO | base: A | isfirst: .F. | islast: .F. start: ENUM= three end: ENUM= three | index: 3 | value: three | base: A | isfirst: .F. | islast: .T. after loop ENUM= b after loop: a= one a= TWO a= three --- Press any key to continue...
To learn how to build/run this example, see this page.