Datentypen

[Say1k]

ich habe mal eine ausarbeitung zur case anweisung geschrieben
so etwa soll es dann auch für datendypen aussehen:
wenn hier fehler sind bitte auch sagen das ist die wichtigste note dieses halbjahr für mich^^

2. Case-Anweisung

Die Case-Anweisung dient dazu, schwierig verschachtelte und lange if-then-else Ketten zu vermeiden. Bei der Case-Anweisung ist zu beachten, dass sie zwar mit einem „end;“ beendet wird, jedoch nicht wie bei einer If-Anweisung mit einem „begin“ eingeleitet wird.
Ein Beispiel hierzu ist, die Zuordnung von Noten als Zahlwerte zu Wertungen:

var Note: Integer;
Wertung: String;

CASE Note OF
1 : Wertung := 'Sehr gut';
2 : Wertung := 'Gut';
3 : Wertung := 'Befriedigend';
4 : Wertung := 'Ausreichend';
5 : Wertung := 'Mangelhaft';
6 : Wertung := 'Ungenügend';
ELSE Wertung := 'Diesen Notenwert gibt es nicht.';
END;

Im vorliegenden Programm Minipaint v2.0 kann man die Case-Anweisung benutzen, um eine Verschachtelung von If-Anweisungen beim auswählen der Stiftdicke zu vermeiden:

var Dicke: Integer;

CASE Dicke OF
1 : Form1.pen.width := 1;
2 : Form1.pen.width := 2;
3 : Form1.pen.width := 3;
4 : Form1.pen.width := 4;
5 : Form1.pen.width := 5;
6 : Form1.pen.width := 6;
ELSE Label1.caption := 'Diese Größe gibt es nicht.';
END;