https://foro.gambas-es.org/viewtopic.php?f=4&t=8035&p=48402#p48402
-----------------------------------
tincho
Viernes, 08 May 2020, 14:15

Dos Clases Que Se Llaman Igual
-----------------------------------
Hola a todos.
Este tema va de aclarar el funcionamiento de gambas a la hora de extender una clase.
Si tomamos por ejemplo la clase nativa String
 [img]https://foro.gambas-es.org/files/images/2590/captura_de_pantalla_2020_05_08_14_58_35.png[/img] 
Vemos que existen una serie de métodos.
Luego si se desea crear una clase String extendida dentro de un proyecto Gambas basta con colocar [b]Inherits String[/b] al comienzo de la clase que tendrá los métodos "nuevos"
[code linenumbers=false syntax=gambas]
' Gambas class file
'' This class extends the standard String class in gambas
Export
Create Static
Inherits String
'' This function counts how much times some string apear in other
Public Function Count(sWhere As String, sWhich As String) As Integer
  Dim i As Integer = 1
  Dim Cursor As Integer
  Dim Counter As Integer
  Repeat
    Cursor = InStr(sWhere, sWhich, i)
    If Cursor > 0 Then
      Inc Counter
      i = Cursor + String.Len(sWhich)
    Endif
  Until InStr(sWhere, sWhich, i) = 0 Or i > String.Len(sWhere)
  Return Counter
End
[/code]
Hasta aquí todo fenómeno, pero....
Que es lo que sucede si activamos el componente [b]gb.util[/b].
 [img]https://foro.gambas-es.org/files/images/2590/captura_de_pantalla_2020_05_08_14_58_12.png[/img] 
Este componente tiene una clase llamada [b]String[/b] pero en su interior no existe la palabra clave [b]Inherits[/b] sin embargo extiende la clase original [b]String[/b] de [b]gb[/b]
¿Como lo hace?
Es mas ahora en el ejemplo anterior de extensión de clase aparecen los métodos extendidos por gb.util.
¿Como funciona esto?
Saludos.


