--- title: "Problem med List(Of T) och referens" type: "forum-thread" url: "https://www.webforum.nu/amne/dotnet/183090-problem-med-list-of-t-och-referens" topic: ".NET" topic_url: "https://www.webforum.nu/amne/dotnet" author: "Webslave" published: "2010-04-07T11:50:22.000Z" updated: "2010-04-13T10:01:30.000Z" replies: 5 views: 721 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/183090-problem-med-list-of-t-och-referens" --- # Problem med List(Of T) och referens ## #1 — Webslave, 2010-04-07T11:50Z Jag har en funktion som gör lite kontroller om det finns ett object med samma datum som det jag söker efter och isf. ska den utföra lite åtgärder. Funktionen ser ut såhär: ``` Public Function CheckWeekRestSchedule(ByVal addedCycles As List(Of CCycle), ByVal schedule As CSchedule) As Boolean Dim r_value As Boolean = True Dim today, tomorrow, lastUsed As New CCycle Dim i, y As Integer Dim daysPassed As Integer Dim newCycle As CCycle Dim firstCycle As New CCycle Dim newDate As Date Dim x As Integer = 0 Dim cycles As New List(Of CCycle) cycles = addedCycles ' I denna så börjar det att strula Do Until x = schedule.ScheduleWeekBreak newCycle = New CCycle newDate = Format(DateAdd(DateInterval.Day, (7 * schedule.ScheduleCycles) + x, Now), "Short Date") newCycle = New CCycleFinder(cycles, Format(DateAdd(DateInterval.Day, x, Now), "Short Date")).Found newCycle.CycleDate = newDate cycles.RemoveAt(New CCycleIndexFinder(cycles, newCycle.CycleDate).Found) cycles.Add(newCycle) x = x + 1 Loop cycles.Sort(AddressOf CCycle.CompKeysByName) ' Massa kod som inte har med frågan att göra Return r_value End Function ``` Problemet är att den listan med ccycles som jag skickar med här (addedCycles) modifieras även den och det vill jag inte utan jag vill endast att det ska vara i just denna funktion som den aktuella listan (cycles) justeras. Jag kör inte med ByRef så jag har lite svårt att förstå varför det blir fel. Om jag lägger till denna funktion före stället så fungerar det bra men det ser ju hemskt ut. ``` For Each c As CCycle In addedCycles newCycle = New CCycle newCycle.CycleDate = c.CycleDate newCycle.CycleStartTime = c.CycleStartTime newCycle.CycleEndTime = c.CycleEndTime newCycle.CycleBreak1Start = c.CycleBreak1Start newCycle.CycleBreak1End = c.CycleBreak1End newCycle.CycleBreak2Start = c.CycleBreak2Start newCycle.CycleBreak2End = c.CycleBreak2End newCycle.CycleBreak3Start = c.CycleBreak3Start newCycle.CycleBreak3End = c.CycleBreak3End newCycle.CycleCycle = c.CycleCycle newCycle.CycleDay = c.CycleDay cycles.Add(newCycle) Next ``` Ser någon vad det är jag missar? Jag har antagligen snubblat över någon superenkel programmeringslogik men är man helt självlärd så missar man en hel del grundläggande saker ;) Permalänk: https://www.webforum.nu/p/183090 ## #2 — spango, 2010-04-07T12:59Z När du säger *cycles = addedCycles* pekar på båda referenserna på samma objekt. Det du vill göra är att göra en cycles till en ny lista med samma innehåll som addedCycles, List har en konstruktor som tar emot en IEnumerable som är lämplig för att kopiera andra listor. (Ändrar du på CCycle-elementen i listan får du göra den kopieringen du visar. En bättre idé vore kanske dock att fixa din kod så att du *inte* ändrar på objekten...) Permalänk: https://www.webforum.nu/p/2232587 ## #3 — Webslave, 2010-04-08T08:33Z Tack för fingervisningen, fick mig att kunna leta på rätt ämnen och hittade denna lösning, fungerar (än så länge) klockrent! ``` Imports System.Reflection Public Class CCloneableList(Of T) Inherits List(Of T) Implements System.ICloneable Function Clone() As Object Implements System.ICloneable.Clone Dim NewList As New CCloneableList(Of T) If Me.Count > 0 Then Dim ICloneType As Type = Me(0).GetType.GetInterface("ICloneable", True) If Not (ICloneType Is Nothing) Then For Each Value As T In Me NewList.Add(CType(Value, ICloneable).Clone) Next Else Dim MethodsList() As MethodInfo = Me(0).GetType.GetMethods For Each Value As T In Me NewList.Add(Value) Next End If Return NewList Else Return NewList End If End Function End Class ``` Här hittade jag klassen och det finns lite andra bra-och-ha-koder här så jag tänkte dela med mig! Permalänk: https://www.webforum.nu/p/2232636 ## #4 — spango, 2010-04-08T15:14Z Argh. Inte världens bästa kod, kanske. Frågor: - Vad händer med *MethodsList*? - Vad händer om man har en lista som innehåller objekt av olika klasser, varav vissa implementerar ICloneable, andra inte? Det är dessutom ett ganska överdrivet sätt att kopiera en lista på. Vill man verkligen göra en deep clone (vilket jag verkligen undrar - ändrar du verkligen på CCycle-objekten?) skulle följande räcka (C#): ``` var cycles = new List(from c in addedCycles select (CCycle)c.Clone()); ``` Nu blir iofs inte *cycles* klonbar, men det behöver du inte, och det är mycket bättre design att inte kräva att parametern som skickas in är av en obskyr subklass till List\ - det är en implementationsdetalj att du behöver kopiera listan. I framtiden kanske du kan fixa din algoritm så att du inte behöver kopiera allt. Permalänk: https://www.webforum.nu/p/2232670 ## #5 — Webslave, 2010-04-13T06:08Z Jag såg kanske inte till hur bra koden är (det känns som att jag inte är den att dömma hehe) utan mer till att den gjorde det jag ville :) Alla nya idéer är värda att prövas så vi gör ett försök med din :) Jag försöker skriva om din kodsnutt till .Net men får ett problem vid "(from c in addedCycles)" där "from" inte accepteras... någon idé? Permalänk: https://www.webforum.nu/p/2232963 ## #6 — spango, 2010-04-13T10:01Z Det är LINQ, har inte riktigt koll på hur det ser ut i VB men ger Permalänk: https://www.webforum.nu/p/2232972 --- Tråden på webben: https://www.webforum.nu/amne/dotnet/183090-problem-med-list-of-t-och-referens