Achja,
eine Case-Anweisung kann zwar nur Gannzahlen verarbeiten, aber einzelne Zeichen sind technisch gesehn nichts anderes als Ganzzahlen.
Das hier ohne StrToInt()
Delphi-Quellcode:
var eing:Char;
begin
eing := Edit1.Text[1] ;
case eing of
'0': ShowMessage('Sie haben 0 eingegeben.');
'1': ShowMessage('Das war die 1');
end
funktioniert also auch.