Clonación

Para evitar el problema planteado en el apartado anterior, si necesitamos disponer de un array con las mismas características que uno ya existente, y que sea totalmente independiente del primero, utilizaremos el método Clone( ). 

Con esto solucionaremos el problema de que al pasar un array como parámetro, las modificaciones que precisemos realizar, afecten al array original. Veamos un ejemplo en el Código fuente 344.

Sub Main()

' crear un array

Dim iValores() As Integer = {10, 20, 30}

CambiaArray(iValores)

' mostrar el array original,

' en este no se habrán producido cambios

Console.WriteLine("Array original")

MostrarArray(iValores)

Console.ReadLine()

End Sub

Private Sub CambiaArray(ByVal iListaDatos As Integer())

' crear un array clónico,

' cambiarle valores y mostrarlo

Dim iListaClonada As Array

iListaClonada = iListaDatos.Clone()

iListaClonada(0) = 621

iListaClonada(1) = 900

Console.WriteLine("Array clónico")

MostrarArray(iListaClonada)

End Sub

Private Sub MostrarArray(ByVal sMiLista() As Integer)

Dim iContador As Integer

For iContador = 0 To sMiLista.Length - 1

Console.WriteLine("Elemento: {0} - Valor: {1}", _

iContador, sMiLista(iContador))

Next

Console.WriteLine()

End Sub

Código fuente 344