Seite 1 von 1
Listed List ohne Elementen (gelöst)
Verfasst: 17.05.2006 15:39
von PureBaser
Code: Alles auswählen
NewList Namenliste.s()
OpenConsole()
Repeat
Print("Bitte einen Namen eingeben (E = Ende): ")
Name$ = Input()
PrintN("")
If Name$ <> "e"
AddElement(Namenliste())
Namenliste() = Name$
Else
bool.b = 1
EndIf
Until bool = 1
PrintN("")
PrintN("Die Liste hat "+Str(CountList(Namenliste()))+" Element(e).")
PrintN("")
ResetList(Namenliste())
NextElement(Namenliste())
Repeat
PrintN(Namenliste())
Until NextElement(Namenliste()) = 0
Input()
CloseConsole()
Wenn man gleich am Anfang E eingibt, gibts vom Compiler ne Fehlermeldung (kein Element). Wie kann man das umschiffen?[/code]
Verfasst: 17.05.2006 15:59
von Exabot
In dem Du "While" anstatt "Repeat" verwendest!
Gruß
Spider
Verfasst: 17.05.2006 16:32
von Kiffi
... oder ForEach verwendest.
also anstelle von...
Code: Alles auswählen
ResetList(Namenliste())
NextElement(Namenliste())
Repeat
PrintN(Namenliste())
Until NextElement(Namenliste()) = 0
Input()
... dieses hier verwenden:
Code: Alles auswählen
ForEach Namenliste()
PrintN(Namenliste())
Next
Input()
Grüße ... Kiffi
Verfasst: 17.05.2006 18:57
von PureBaser
Ahja Super!
Muss nächstes mal mehr nachdenken...
Verfasst: 17.05.2006 20:39
von MVXA
Außerdem heißt das linkedlist