Case

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Příkaz case obsahuje výraz a seznam příkazů, každý uvozen případem.

Syntaxe
case výraz of případ: příkaz;
  ...
  případ: příkaz;
end

NEBO

case výraz of
  případ: příkaz;
  ...
  případ: příkaz;
else
  příkaz
end

kde případ je konstanta

NEBO

  konstanta..konstanta

NEBO

  kombinace obou oddělené čárkou


Popis
Příkaz case je tzv. přepínač. Vykoná ten příkaz, jehož případ (konstanta) se rovná hodnotě výrazu (selektoru). Jestliže žádný případ se nerovná hodnotě výrazu, nevykoná žádný příkaz, nebo vykoná příkaz za slovem "else" (pokud je uvedeno).
Část else je volitelná.


Příklad

case Ch of
  'A'..'Z', 'a'..'z':  WriteLn('Písmeno');
  '0'..'9':            WriteLn('Číslice');
  '+', '-', '*', '/':  WriteLn('Operátor');
else
  WriteLn('Speciální znak');
end;
case i of
  0:  WriteLn('Nula');
  1:  WriteLn('Jeden');
  2:  WriteLn('Dva');
end;