German List mit eigenen Type

[DinoDieter]

Hallo

Ich versuche schon seit Stunden, eigene Type in einem List zu speichern.
Leider nur mit wenig Erfolg.

Hier mal ein Code Ausschnitt.

Type Hallo  (Name As String, Author As String, ISBN as String)
Dim eintrag As    Hallo   

Dim Liste As List

   liste.Initialize
   eintrag.Initialize
   For a = 0 To 10
      Eintrag.Name = "Test " & a
     Eintrag.Author ="Hallo" 
      liste.Add(Eintrag)            'Hier passiert der Fehler
   Next
   
   Eintrag.Name = "Höllenjagd"
   Eintrag.Author ="Clive"
   liste.Add(Eintrag)

Der Fehler ist der, das am Schluß in allen Einträgen der Liste die Werte der letzten beiden Zeilen stehen ( Höllenjagd & Clive)

MFG
Dieter

 

[klaus]

Dein Code muss so sein:

Liste.Initialize
Eintrag.Initialize
    
For a = 0 To 10
  Dim Eintrag As Hallo   
  Eintrag.Name = "Test " & a
  Eintrag.Author ="Hallo" & a
  Liste.Add(Eintrag)  
Next
    
Dim Eintrag As Hallo
Eintrag.Name = "Höllenjagd"
Eintrag.Author ="Clive"
Liste.Add(Eintrag)

Du musst Eintrag jedes mal neu mit Dim deklarieren.

Beste Grüsse.

 

[DinoDieter]

Hallo Klaus

Vielen Dank, die erste Hürde ist genommen.

Das zurücklesen der List mit

Liste = File.ReadList(File.DirRootExternal, "bucher.txt")

scheint ja Probleme zu machen, aber das löse ich dann per Hand.

MFG
Dieter