case of

[gmarts]

Case verlangt einen Ordinalen Typen!

Delphi-Quellcode:

case Ord(Buchstabe) of   {hier Asciiwert des Zeichens zurückgeben lassen}
111..123: bla bla; {hier prüfen, ob asciiwert in einem bestimmten Bereich steht(Sonderzeichen, Großbuchstaben, etc) ...siehe AsciiTabelle}
end;

bzw. hier ein einfaches Beispiel :

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case ord(key) of
100..200: showmessage('ein Zeichen aus 100 bis 200 gedrückt....');
32: showmessage('Leertaste gedrückt');
end;
end;