10.3.30 GetProperty
Die Funktion liest den Wert zu einem durch sName bestimten Property aus. Als Unterstützung zum debuggen kann man sich auch einen Wert übergeben lassen wenn der Eintrag nicht vorhanden ist.


Function getProperty( arProps, sName As String, Optional debug as Boolean )
   For i = LBound( arProps ) To uBound( arProps )
      checkProp = arProps(i)
      If checkProp.Name = sName Then
         getProperty() = checkProp.value
         Exit Function
      EndIf
   Next
   getProperty()=""
   if debug then getProperty()="Die Propertie mit dem Namen: "+sName+" ist nicht vorhanden"
End Function