Bug in Select-Case

[SimonSimCity]

Code: Alles auswählen

Structure User ;{
  sName.s{255}
  sPass.s{32}
EndStructure ;}

Global NewList User.User()

OpenConsole()

Define sInput.s, b1.b

Repeat
  Select LCase(Input())
    Case "new"
      AddElement(User())
      Print("  Name: ")
      User()\sName = Input()
      Debug  User()\sName
      Print("  Passwort: ")
      sInput = Input()
      User()\sPass = MD5Fingerprint(@sInput, Len(sInput))
    Case "exit"
      Break
  EndSelect
  
  Delay(20)
ForEver

End

Hier wird bei Debug nicht das ausgegeben, was hinter " Name:" eingegeben wurde, sondern es wird "new" zurückgegeben.


Funktionierende Version:

Code: Alles auswählen

Structure User ;{
  sName.s{255}
  sPass.s{32}
EndStructure ;}

Global NewList User.User()

OpenConsole()

Define sInput.s, b1.b

Repeat
  sInput = LCase(Input())
  Select sInput
    Case "new"
      AddElement(User())
      Print("  Name: ")
      User()\sName = Input()
      Debug  User()\sName
      Print("  Passwort: ")
      sInput = Input()
      User()\sPass = MD5Fingerprint(@sInput, Len(sInput))
    Case "exit"
      Break
  EndSelect
  
  Delay(20)
ForEver

End

Die Änderung sind nur 2 Zeilen (SELECT und die darüber).

[Green Snake]

Funktioniert hier

[SimonSimCity]

Was funktioniert?

Beide Codes?

[Green Snake]

Beide

Edit:
http://www.purebasic.fr/german/viewtopic.php?t=12226

Falls du bei dieser Frage auch Unicode on hast:
a) Dann hast du recht, bekomme auch nur "new" zurück.
b) Sag das bitte auch

[SimonSimCity]

Beide

Edit:
http://www.purebasic.fr/german/viewtopic.php?t=12226

Falls du bei dieser Frage auch Unicode on hast:
a) Dann hast du recht, bekomme auch nur "new" zurück.
b) Sag das bitte auch

Muss wohl nächstes Mal mehr posten..

Aber ist das normal? Soll das so sein?