Case of

[Lemo]

Хочю отлавливать нажатия клавишь ...

Вот этот блок :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate($30)<>0 then
Label1.Caption:='0';

if getasynckeystate($31)<>0 then
Label1.Caption:='1';
end;

хочю сделать через case of

 case getasynckeystate($n) of
 30 : label1.Caption:='0';
 31 : label1.Caption:='1';
 end;

Но что то не получаеться (
ЗЫ функа getasynckeystate : параметр типа integer, а резалт - short.

[netrino]

Дык

var
   x : Integer = 10;
begin
   case x of
       1: ShowMessage('1');
       10: ShowMessage('10');
       100: ShowMessage('100');
   end;
end;

эквивалентен

var
   x : Integer = 10;
begin
   if x = 1 then
      ShowMessage('1');
   else if x = 10 then
      ShowMessage('10');
   else if x = 100 then 
      ShowMessage('100');
end;

А у вас как-то по-другому ... Фактически с 30 и 31 сравнивается то, что вернёт ф-ция getasynckeystate. Я так понимаю, Вы решили, что эти значения поочередно подставляются вместо n?

[Lemo]

Как я понял под case нельзя сделать?

[netrino]

Видимо нельзя Во всяком случае без каких-либо ухищрений

[Volt]

for i:=0 to 255 do
if getasynckeystate(i)<>0 then
case i of
$31 : label1.Caption:='1';
$30 : label1.Caption:='0';
end;