Zugriff auf eine Liste im Rahmen einer Liste

[rthone]

Hallo,
ich habe folgenden Code angelegt, um eine Datenverwaltung anzulegen.

Code: Alles auswählen

Enumeration Faecher
    #Deutsch
    #Englisch
    #Mathematik
  EndEnumeration
  
Structure Dozent
  Nachname.s
  Vorname.s
  Adresse.s  
  PLZ.i
  List Unterrichtsfaecher.i ()
  
EndStructure

NewList Dozentenliste.Dozent() ;Anlegen der Dozentenliste
*Element.Dozent = AddElement(Dozentenliste()) ;Pointer Add Element
*Element\Nachname = "Doe"                  ;Aktuelle Werte anlegen
*Element\Vorname = "John"

;Debug Ausgabe
Debug *Element\Nachname
Debug *Element\Vorname

; John Doe soll jetzt zwei Faecher unterrichten, Fach Nr. 1 und Nr. 3
; siehe Enumeration. Wie weise ich jetzt dem derzeitigen Element John Doe
; zwei Werte (1 und 3) als Liste Unterrichtsfaecher zu?
End

Die Struktur Dozent ist ist der Typ, auf dem die Liste Dozentenliste basiert. Den Pointerzugriff auf die Elemente habe ich verstanden.
Meine Frage steht schon als Kommentar im Programmtext:
; John Doe soll jetzt zwei Faecher unterrichten, Fach Nr. 1 und Nr. 3
; siehe Enumeration. Wie weise ich jetzt dem derzeitigen Element John Doe
; zwei Werte (1 und 3) als Liste Unterrichtsfaecher zu?

Vielen Dank!

Einen lieben Gruß
Raphael.

__________________________________________________
Code-Tags hinzugefügt
09.10.2016
RSBasic

[STARGÅTE]

Du verwendest die selbe Vorgehensweise wie bei der Dozentenliste:

Code: Alles auswählen

Enumeration Faecher
 #Deutsch
 #Englisch
 #Mathematik
 EndEnumeration

Structure Dozent
 Nachname.s
 Vorname.s
 Adresse.s 
 PLZ.i
 List Unterrichtsfaecher.i ()

EndStructure

NewList Dozentenliste.Dozent() ;Anlegen der Dozentenliste
*Element.Dozent = AddElement(Dozentenliste()) ;Pointer Add Element
*Element\Nachname = "Doe" ;Aktuelle Werte anlegen
*Element\Vorname = "John"
AddElement(*Element\Unterrichtsfaecher()) : *Element\Unterrichtsfaecher() = #Deutsch
AddElement(*Element\Unterrichtsfaecher()) : *Element\Unterrichtsfaecher() = #Mathematik

;Debug Ausgabe
Debug *Element\Nachname
Debug *Element\Vorname
ForEach *Element\Unterrichtsfaecher()
	Debug *Element\Unterrichtsfaecher()
Next