Wie willst du denn das mit einer Repeat-Schleife realisieren? - Das geht doch rein konzeptionell gar nicht.
Zu der Case-Struktur: Sie macht den Code weitaus besser lesbar und sorgt auch dafür, dass das Programm schneller läuft. Intern arbeitet ein Case als Assembler schneller als tausende von IFs. Sieht dann so aus:
Delphi-Quellcode:
case key of
VK_RETURN: DoReturn;
VK_NUMPAD1: begin Ring := 1; Turnscore := 2; end;
VK_NUMPAD2: begin Ring := 3; Turnscore := 4; end;
end;
Bernhard