Hi,
ganz nett. Beim Case-Of solltest Du noch erwähnen, dass es auch ein else unterstützt, falls gar keiner der Werte zu trifft:
Delphi-Quellcode:
Zahl := 2;
case Zahl of
0: Anweisung0;
1: Anweisung1;
else
ShowMessage('Keine definierte Anweisung');
end;