Hey,
also ich hab folgendes Problem.
Ich poste mal schnell den quelltext:
Spoiler anzeigen
#include "AutoItObject/AutoItObject.au3"
; Error monitoring
Global $oError = ObjEvent("AutoIt.Error", "_ErrFunc")
; Initialize AutoItObject
_AutoItObject_StartUp()
$typ = "Person|Name|Adresse"
[/autoit] [autoit][/autoit] [autoit]Global $object = createObject($typ)
$object.toString()
Func createObject($typ)
Dim $object_info = StringSplit($typ,"|")
Local $oClassObject = _AutoItObject_Class()
$oClassObject.Create()
ConsoleWrite("Creating Object:"&@CRLF)
$oClassObject.AddProperty("info", $ELSCOPE_PUBLIC, $typ)
ConsoleWrite(@TAB&"info: "&$typ&@CRLF)
For $i=2 To $object_info[0]
$oClassObject.AddProperty($object_info[$i], $ELSCOPE_PUBLIC, 0)
ConsoleWrite(@TAB&$object_info[$i]&": "&0&@CRLF)
Next
$oClassObject.AddMethod("toString","ObjectToString")
Return $oClassObject.Object
EndFunc
Func ObjectToString($oself)
Dim $object_info = StringSplit($oself.info,"|")
Local $string = "ObjektToString "&$object_info[1]&@CRLF
For $i=2 To $object_info[0]
$string &= $object_info[$i]&": ";&$oself.$object_info[$i] ;Geht nicht
$string &= @CRLF
if(@error) Then Exit
Next
ConsoleWrite($string)
EndFunc
Func _ErrFunc()
ConsoleWrite("! COM Error ! Number: 0x" & Hex($oError.number, & " ScriptLine: " & $oError.scriptline & " - " & $oError.windescription & @CRLF)
Return
EndFunc ;==>_ErrFunc
Nun ich will mir durch $typ definiert ein Objekt erzeugen.
In dem Objekt wird dann in info alles über das objekt gespeichert(name, attribute)
Nur wie kann ich dann über diese informationen wieder auf die attribute zugreifen? (siehe ObjectToString Methode)
Mfg