fb:porticula NoPaste
Templates in FB
Uploader: | MOD |
Datum/Zeit: | 25.09.2011 13:42:02 |
'Template
#Macro vectorDummy(T) 'Macro zur Definition des Templates
#Ifndef vector##T 'Verhindert doppelte Definitionen
Type vector##T 'Eigentliche Klasse
As T X, Y, Z 'Beispiel-Records
End Type
#EndIf
#EndMacro
vectorDummy(Integer) 'Klasse für den Typ Integer anlegen
Dim As vectorInteger meinVector1
meinVector1.X = 5
vectorDummy(String) 'Klasse für den Typ String anlegen
Dim As vectorString meinVector2
meinVector2.X = "Hallo"
Print meinVector1.X
Print meinVector2.X
Sleep