Listed List ohne Elementen (gelöst)

[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]

[Exabot]

In dem Du "While" anstatt "Repeat" verwendest!

Gruß

Spider

[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

[PureBaser]

Ahja Super!

Muss nächstes mal mehr nachdenken...

[MVXA]

Außerdem heißt das linkedlist