Массив как параметр формы в Microsoft VFP

Если массив формируется вне формы, то он может быть передан форме как параметр. При этом процедурой, принимающей параметры, является обработчик события Init открываемой формы.

Пусть вызывающая программа имеет следующий текст:

&& Формируем двумерный массив формы 5´4 и выполняем его инициализацию

dimension someArray[5, 4]

for k = 1 to Alen(someArray)

                                            someArray[k] = Int(10 * Rand( ))

endFor

&& Открываем форму ArrayShow.scx,

&& передавая ей в качестве параметра массив someArray

do form d:\HomeLibrary\Forms\ArrayShow.scx with someArray

Тогда процедура-обработчик события Init формы ArrayShow может иметь следующий код:

&& Обработчик события Init формы ArrayShow

&&

parameters someArray

&& Протяженности массива по первому и второму измерениям

m = Alen(someArray, 1)

n = Alen(someArray, 2)

with This

.AddProperty("FormArray(m, n)")

&& Заполняем массив-свойство FormArray формы

for k = 1 to m * n

FormArray(k) = someArray(k)

endFor

.ListArray.RowSource = "ThisForm.FormArray"

…

endWith