\' Gambas class file
Inherits Componente
Private ListaDeComponentes As New Componente[] \'pueden ser Empleados como Departamentos (Hoja o Compuesto)
Private hNombreDepartamento As String
Public Sub _new(nombre As String)
hNombreDepartamento = nombre
End
Public Function getNombre() As String
Return hNombreDepartamento
End
Public Function getSueldo() As Single
Dim sumador As Single = 0
Dim i As Integer
For i = 0 To ListaDeComponentes.Max
sumador += ListaDeComponentes[i].getSueldo()
Next
Return sumador
End
Public Sub agrega(p As Componente) \' puedo agregar tanto Departamentos como Empleados
ListaDeComponentes.Add(p)
End
Public Sub borrar(nombre As String)
Dim i As Integer
For i = 0 To ListaDeComponentes.Max
If ListaDeComponentes[i].getNombre() = nombre Then
ListaDeComponentes.Delete(i)
Return \'retorno porque ya lo he borrado
Endif
Next
End
Public Function getEstructuraDepartamento() As String
Return hNombreDepartamento
End
Public Sub setNombreDepartamento(NombreDepartamento As String)
hNombreDepartamento = NombreDepartamento
End
Public Function getEstructura(cadenainicial As String) As String
Dim cadena As String
Dim i As Integer
For i = 0 To ListaDeComponentes.Max
cadena &= ListaDeComponentes[i].getEstructura(cadenainicial & getEstructuraDepartamento() & "-> ") & "\\n"
Next
Return cadena
End