FindObject funktsioon

Võimaldab pöörduda käitusajal objekti poole stringiparameetrina objekti nime abil.

Näiteks järgmine käsk:


MyObj.Prop1.Command = 5

vastab käsuplokile:


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

See võimaldab käitusajal luua nimed dünaamiliselt. Näiteks:

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

Vaata ka: FindPropertyObject

SĂĽntaks:


FindObject( ObjName As String )

Parameetrid:

ObjName: string, mis määrab selle objekti nime, mille poole soovid käitusajal pöörduda.

Veakoodid:

5 Vigane protseduuri väljakutse

12 Muutuja ei ole defineeritud