FindPropertyObject Function

Позволяет во время выполнения обращаться к объекту как строковому параметру с использованием имени объекта.

Например, следующая команда:


MyObj.Prop1.Command = 5

соответствует блоку команд:


Dim ObjVar as Object
Dim ObjProp as Object
ObjName As String = "MyObj"
ObjVar = FindObject( ObjName As String )
PropName As String = "Prop1"
ObjProp = FindPropertyObject( ObjVar, PropName As String )
ObjProp.Command = 5

Это позволяет создавать имена динамически во время выполнения. Например:

"TextEdit1" to "TextEdit5" in a loop to create five control names.

См. также: FindObject

Синтаксис


FindPropertyObject( ObjVar, PropName As String )

Параметры:

Объектная_переменная. Объектная переменная, которую нужно определить динамически во время выполнения.

Имя_свойства. Строка, указывающая имя свойства, к которому нужно обращаться во время выполнения.

Коды ошибок:

5 Неправильный вызов процедуры

12 Переменная не определена

14 Неверный параметр

52 Неправильное имя или номер файла

57 Ошибка устройства ввода/вывода

Пожалуйста, поддержите нас!