Hi Christian,
ergänzend zu den anderen Beiträgen ist zu vermerken, dass es vorkommen kann, dass von vorhandenen älteren Komponenten nur ArrayList's geliefert werden. Da muss dann konvertiert werden. Nutzen kann man dazu LinQ to Objects für die ArrayList und den Konstruktor,
der eine IEnumerable(Of T) akzeptiert. Da eine ArrayList aber Objektverweise auf beliebige Objekte verwalten kann, muss geprüft werden, dass auch der richtige Typ in die typisierte Liste übernommen wird. Im nachfolgenden Beispiel ist das dargestellt. Alle
unpassenden Typen werden da aber nicht übernommen. Wenn es anders sein soll, dann müsstest Du etwas detaillierter beschreiben, welche Konvertierungen erforderlich werden können. Denkbar ist auch anstelle einer Liste eine IEnumerable, die, wenn innerhalb einer
Methode genutzt, auch mit anonymen Objekten gefüllt sein kann, die aus den Elementen der Arraylist gewonnen werden, z.B. mit ToString.
Module Module23
Public Sub Main()
' Daten vorbereiten
Dim al As New ArrayList
al.Add(New Demo23Data With {.ID = 1, .Info = "Info 1"})
al.Add(55)
al.Add("Info 3")
al.Add(New Demo23Data With {.ID = 4, .Info = "Info 4"})
' Aufruf der typisierten Methode
Dim l2 = (New Demo23).Execute1(Of Demo23Data)(al)
' Ergebnis anteigen
For Each item In l2
Console.WriteLine($"{item.ID} - {item.Info}")
Next
Console.ReadKey()
End Sub
End Module
Friend Class Demo23
Public Function Execute1(Of T)(l1 As ArrayList) As List(Of T)
Return New List(Of T)(From itm In l1 Where itm.GetType = GetType(T) Select CType(itm, T))
End Function
End Class
Friend Class Demo23Data
Friend Property ID As Integer
Friend Property Info As String
End Class
--
Viele Grüsse
Peter Fleischer (ehem. MVP)
Meine Homepage mit Tipps und Tricks
