21 lines
484 B
Plaintext
21 lines
484 B
Plaintext
'FB 1.05.0 Win64
|
|
|
|
' FreeBASIC does not have a NULL keyword but it's possible to create one using a macro
|
|
|
|
#Define NULL CPtr(Any Ptr, 0) '' Any Ptr is implicitly convertible to pointers of other types
|
|
|
|
Type Dog
|
|
name As String
|
|
age As Integer
|
|
End Type
|
|
|
|
Dim d As Dog Ptr = New Dog
|
|
d->Name = "Rover"
|
|
d->Age = 5
|
|
Print d->Name, d->Age
|
|
Delete d
|
|
d = NULL '' guard against 'd' being used accidentally in future
|
|
|
|
' in practice many FB developers would simply have written: d = 0 above
|
|
Sleep
|