switchStrategy

' 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