\' Gambas class file
Public Sub Form_Open()
Dim p As New Pato[]
Dim paux As Pato
Dim comportamiento As IVolar
paux = New PatoGordo
p.Add(paux)
TextLabel1.text = "Pato nº 1: " & p[0].getVolar() & tipopato(p[0]) & "<br>"
paux = New PatoHule
p.Add(paux)
TextLabel1.text &= "Pato nº 2: " & p[1].getVolar() & tipopato(p[1]) & "<br>"
paux = New PatoRedBlue
p.Add(paux)
TextLabel1.text &= "Pato nº 3: " & p[2].getVolar() & tipopato(p[2]) & "<br>"
\'el pato nº 3 ,subre un accidente y ahora ya no puede volar...
TextLabel1.text &= "<font color=\\"blue\\">Accidente del pato Pato nº 3!!!....</font><br>"
comportamiento = New NoVolar
p[2].setVolar(comportamiento)
TextLabel1.text &= "Pato nº 3: " & p[2].getVolar() & tipopato(p[2]) & "<br>"
End
Public Function tipopato(p As Pato) As String
Return ", Clase de de pato: " & Object.Class(p).Name
End