Structure probleme!

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von fegl84.

    Structure probleme!

    Hallo liebe Community-Mitglieder,

    ich habe hier ein (sehr) spezielles Problem.

    Für mein Projekt habe ich mehrere Structure, u.a. einige Datentypen als List(of Structure) deklariert. Wenn ich diese Structur nochmal ins List(of Structure) speichere, wiederholt sich die Daten aus der Array, d.H. jede Array-Eintrag im Structur enthält identische Array-Einträge. Nicht-Array-Daten sind korrekt geblieben.

    Woran liegt es? Wie löse ich das Problem am bestens?

    Gerne gebe ich die Quellcode-Ausschnitte frei:

    Structure:

    VB.NET-Quellcode

    1. Private Structure mFace
    2. Dim datei As String
    3. Dim dreieck_ref As List(Of Dreieck_int)
    4. Dim koordinaten_ref As List(Of Punkt)
    5. Dim kanten_ref As List(Of Kanten_int)
    7. Dim kanten_rand As List(Of Kanten_int)
    10. Dim k_fehler As Boolean
    11. Dim p_fehler As Boolean
    12. Dim r_fehler As Boolean
    13. End Structure
    15. Private Structure Dreieck
    16. Dim p1 As Punkt
    17. Dim p2 As Punkt
    18. Dim p3 As Punkt
    19. End Structure
    21. Private Structure Dreieck_int
    22. Dim k1 As Integer
    23. Dim k2 As Integer
    24. Dim k3 As Integer
    25. End Structure
    27. Private Structure Punkt
    28. Dim x, y, z As Double
    29. End Structure
    31. Private Structure Kanten
    32. Dim P1, P2 As Punkt
    33. End Structure
    35. Private Structure Kanten_int
    36. Dim P1, P2 As Integer
    37. End Structure


    List(of) als Globale Variable:

    VB.NET-Quellcode

    1. Dim koor_ref As New List(Of Punkt)
    2. Dim k_ref As New List(Of Kanten_int)
    3. Dim dr_ref As New List(Of Dreieck_int)
    4. Dim k_rand As New List(Of Kanten_int)
    5. Dim k_fehler, p_fehler, r_fehler As Boolean



    VB.NET-Quellcode

    1. Private Sub analysiere_gesamtmodell()
    3. Button4.Enabled = False
    5. Dim i As Integer
    7. Dim Daten As New List(Of mFace)
    9. For i = 0 To list_files.Count - 1 Step 1
    11. Dim datei As mFace
    12. Dim dreiecke As New List(Of Dreieck_int)
    13. Dim koor As New List(Of Punkt)
    14. Dim ka As New List(Of Kanten_int)
    15. Dim rand_kanten As List(Of Kanten_int)
    17. Dim d_path As String
    19. ListView_fuellen(d_path)
    21. dreiecke = dr_ref
    22. koor = koor_ref
    23. ka = k_ref
    24. rand_kanten = k_rand
    26. datei.datei = list_files(i).ToString()
    27. datei.dreieck_ref = dreiecke
    28. datei.koordinaten_ref = koor
    29. datei.kanten_ref = ka
    30. datei.kanten_rand = rand_kanten
    32. datei.k_fehler = k_fehler
    33. datei.p_fehler = p_fehler
    34. datei.r_fehler = r_fehler
    36. Daten.Add(datei)
    37. Next
    39. End Sub



    Vielen Dank für eure Hilfe.

    Gruß
    Flo

    P.S. Bin kein Anfänger, sondern umsteiger.

    Es sieht so aus, als ob Du immer auf dieselbe Instanz von mFace zugreifst.
    Wenn Du aus der Hauptstruktur eine Klasse machst und eine Instanz mit New erstellst, sollte es problemlos gehen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Private Structure Kanten_int
    2. Dim P1, P2 As Integer
    3. End Structure
    ==>

    VB.NET-Quellcode

    1. Private Class Kanten_int
    2. Dim P1, P2 As Integer
    3. End Class
    und

    VB.NET-Quellcode

    1. Dim kk As Kanten_int
    2. ' ==>
    3. Dim kk As New Kanten_int
    und fertich. :thumbsup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. dreiecke = dr_ref
    2. koor = koor_ref
    3. ka = k_ref
    4. rand_kanten = k_rand

    Toll. Es wird ein Object "neu" erzeugt und dann werden ALLE auf den Wert der globalen Variable gesetzt. Und da es sich um eine List(Of T) handelt, zeigen nachher dröflzig "Zeiger" auf ein und dasselbe Objekt. Dh ändere ich etwas in EINEM Objekt, betrifft das ALLE.

    Wenn es sich um "Default"-Werte handelt -> KOPIEREN und nicht einfach "=" setzen!

    zb: ListeA.AddRange(ListeB.ToArray)

Facebook
Telefonspende