как в delphi case' ом пользоваться

[Arsenx777]

qq ВСЕМ!

Как можно этот код записать через case? забыл как в delphi case' ом пользоваться

if getasynckeystate($30)<>0 then 
 Label1.Caption:='0'; 
if getasynckeystate($31)<>0 then 
 Label1.Caption:='1'; 
if getasynckeystate($32)<>0 then 
 Label1.Caption:='2'; 
if getasynckeystate($33)<>0 then 
 Label1.Caption:='3'; 
if getasynckeystate($34)<>0 then 
 Label1.Caption:='4'; 
if getasynckeystate($35)<>0 then 
 Label1.Caption:='5'; 
if getasynckeystate($36)<>0 then 
 Label1.Caption:='6'; 
if getasynckeystate($37)<>0 then 
 Label1.Caption:='7'; 
if getasynckeystate($38)<>0 then 
 Label1.Caption:='8'; 
if getasynckeystate($39)<>0 then 
 Label1.Caption:='9'; 
memo1.Lines.Add(label1.Caption); 
end;

функиция getasynckeystate($38) какого типа аргумент возвращает ?

У нас принято оформлять код специальным тегом. Кнопка #. Модератор

[alexprey]

case youvar of
 value1: action1();
 value2: action2();
end;

[alexprey]

Этот код не кейсом а циклом можно заменить

 var i: integer;
...
 for i:= 0 to 9 do
  if getkeyasynckeystate($30+i) <> 0 then
   Label1.Caption := IntToStr(i);

[Arsenx777]

Мне кейсам именно нада! покажите пожалуйста

[Stilet]

case getasynckeystate($30) of
0:;
else Label1.Caption:='0'; ;
end;

Но ИМХО это тупость...

[alexprey]

Arsenx777: для case такая структура не подходит. Я тебе показал нужный вариант. Находи циклом нужную асинк и кайсом смотри. В любом случаии нужен цикл.

procedure ForObstanceAndLazlyProgrammer;
  function GetAsynKey: integer;
  begin
   //А тут предлагаю подумать +)
  end;
 var key: integer;
begin
 key := GetAsynKey;
 case key of
  ....
 end;
end;

[veniside]

// если жисть без кейса не мила
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case (Key) of

    $30: Caption := '0';
    $31: Caption := '1';
    $32: Caption := '2';
    $33: Caption := '3';
    $34: Caption := '4';
    $35: Caption := '5';
    $36: Caption := '6';
    $37: Caption := '7';
    $38: Caption := '8';
    $39: Caption := '9';

  end;
end;

[Arsenx777]

Всем cncu6o!