Оператор case в delphi

Posted by Chas under Delphi

1. объясните мне назначение Case пожалуйста, кучу сайтов по нему пересмотрел так и не понял как его использовать… сложный он какой то…
2. подскажите тип, что то вроде Boolean только содержит не True\False, а 0\1

BDA
1. «case — вместо тысячи if». Никаких мудреных условий в case.
В лучшем случае можно задать диапазон или несколько диапазонов чисел, например:

var

  number: integer;

begin

  number := 25;

  Case number of

    1 .. 19:

      ShowMessage(IntToStr(number) + ' меньше 20');

    25, 30, 35, 40, 45:

      ShowMessage(IntToStr(number) + ' ,больше 20, меньше 50 и кратно 5');

  else

    ShowMessage(IntToStr(number) + ' не знаю, что сказать');

  end;

end;

2. Объявите свой тип, делов-то:

type

  bit = 0 .. 1;

...

function f(t: bit): integer;

...

тема на форуме

Похожие статьи

• Вопрос по message
• Перемещение символа стрелками