Polymorphic copy: Difference between revisions

Content added Content deleted
m (→‎{{header|Wren}}: Changed to Wren S/H)
(Added FreeBASIC)
Line 959: Line 959:
end program test
end program test
</syntaxhighlight>
</syntaxhighlight>

=={{header|FreeBASIC}}==
FreeBASIC does not support object-oriented programming and polymorphy. However, you can simulate it using user-defined types and procedure pointers.
<syntaxhighlight lang="vbnet">Type T
method As Sub(pthis As T Ptr)
End Type

Type S Extends T
dato As Integer
End Type

Sub TMethod(pthis As T Ptr)
Print "T method"
End Sub

Sub SMethod(pthis As S Ptr)
Print "S method, dato = "; pthis->dato
End Sub

Sub CallMethod(pthis As T Ptr)
pthis->method(pthis)
End Sub

Dim As T tt
tt.method = @TMethod

Dim As S ss
ss.method = @SMethod
ss.dato = 123

Sleep</syntaxhighlight>
{{out}}
<pre>T method
S method, dato = 123</pre>


=={{header|Go}}==
=={{header|Go}}==