Case

[Sprint]

Delphi-Quellcode:

  case Zahl of
    1: ShowMessage('Sehr gut');
    2: ShowMessage('Gut');
    {...}
    6: ShowMessage('Ungenügend');
  else
    ShowMessage('Diesen Notenwert gibt es nicht.');
  end;

Du musst jetzt mal langsam lernen, das du dir bei Problemen selber hilfst.
Die IDE/Editor zeigt dir ja an wo der Fehler ist.

Markiere z.B. case im Editor und drücke F1. Wenn du dir die Beispiele in der
Hilfe anschaust, dann würdest du bestimmt selber draufkommen, was du falsch gemacht
hast.