Code: Alles auswählen
; folgendes Makro ist eine Abkürzung, weil faul sein schön macht
Macro Call(obj, method)
CallFunctionFast(obj\method, @obj)
EndMacro
; die allgemeine Struktur der "Klasse"
Structure Punkt
*Info ; Methode
x.l ; Werte
y.l
EndStructure
; Implementierung der Methode
Procedure Info(*this.Punkt)
Debug *this\x
Debug *this\y
Debug "-"
EndProcedure
; "Konstruktor"
Macro NeuPunkt(name, param_x, param_y)
name.Punkt
name\Info = @Info()
name\x = param_x
name\y = param_y
EndMacro
; Beispiel zur Benutzung des Punktes
NeuPunkt(foo, 1, 2)
Call(foo, Info)
foo\x = 3
foo\y = 4
Call(foo, Info)