\' Gambas class file
Private listaEstrategia As New InterfaceCrearComando[]
Public Sub operar(orden As String, datos As String) As Comando
Dim iCrearcomando As New InterfaceCrearComando
For Each iCrearcomando In listaEstrategia
If iCrearcomando.guard(orden) Then
Return iCrearcomando.crearComando(datos)
Endif
Next
\'si llega aqui es que no ha encontrado el comando
Message.Info(("Error: Comando desconocido") & " (" & orden & ")")
Return Null
End
Public Sub add(estrategia As InterfaceCrearComando)
listaEstrategia.Add(estrategia)
End