* Перед выполнением следующего примера откройте новую форму в
* конструкторе форм и добавьте в нее один или несколько элементов
* управления, имеющих свойства Caption, такие как Label или
* CommandButton. Выделите несколько элементов управления из числа
* добавленных, а затем запустите программу данного примера. С
* помощью функции ASELOBJ( ) будут отображены имена выбранных
* элементов управления, а затем изменены их названия.

gnobjects = ASELOBJ(gaSelected) && Create array of control names

IF gnobjects > 0 && 0 indicates no controls selected

CLEAR

DISPLAY MEMORY LIKE gaSelected && Displays selected controls

FOR nCnt = 1 TO gnobjects

? gaSelected(nCnt).Caption + ' => New Caption ' ;

+ LTRIM(STR(nCnt)) && Display old and new caption

gaSelected(nCnt).Caption = 'New Caption ' ;

+ ALLTRIM(STR(nCnt)) && Assign new caption

NEXT

ENDIF