Лазарус – простые особенности Case of, учеба идет

 

Мне очень нравится язык Делфи (Delphi). Еще когда-то давно программировал в среде Делфи 7.0 (Delphi 7.0). Как сейчас помню, как пошутил один из студентов рядом. Это что еще за такой Дельфийский Оракул? Что за Делфи еще такой? Вот сегодня, в рамках этого направления есть среда программирования Лазарус. Lazarus. Современная среда под такое программирование как Делфи.

Сам тоже сейчас изучаю среду Lazarus. Старый добрый Делфи. Как говорится. Для современной Виндоус системы. И хочу поделиться каким-то несложными моментами. Сам трачу время на учебу. И возникло желание как блогер тоже об этом писать. Простые вещи. В рамках популярности Делфи и Лазарус.

Все кто программирует в среде Turbo Pascal, Free Pascal, Delphi, Lazarus знают такой оператор замечательный как Case of. Оператор выбора. В других языках программирования это выглядит как Select case, Swith. Это как некий вариант условного оператора. Сразу рядом их изучают. В самом старте.

Удобно сделать перебор значений при помощи Case of. Не раз это выручало. В среде Лазарус, можно делать такие варианты на тему этого оператора.

Можно указывать много перечислений, прямо в строке написать много значений. На примере алфавита можно показать. В одной строке, указать кучу возможных значений.

C:='f';

 case С of

 'a','b','c','d','e','f','g','h':

   Memo1.Append('[a-h]!');

 'i','j','k','l','m','n','o','p':

  Memo1.Append('[i-p]!');

 else

 Memo1.Append('out of rannge [a-p]!');

 end;

или можно писать диапазоны.  Например когда попадаем в случай в диапазоне от 1 до 10. Сделай такое то действие.

A:=15;

 case A of

 1..10:  Memo1.Append('[1-10]!');

 11..20: Memo1.Append('[11-20]!');

 21..30: Memo1.Append('[21-30]!');

 else

 Memo1.Append('Out of range [1-30]!');

 end;

На моем начальном этапе знакомства меня смутила ветка действий Else. Эта ветка отличается. Там не ставится двоеточие. Чтобы потом начать описывать случай. А просто ключевое слово else. И сразу идет случай. И не обязательно туда писать begin end. Можно без них даже. Даже если там куча будет операторов. Это очень удивило.  И для меня вот вообще все семейство языков Паскаль – Делфи ассоциируется плотно с конструкцией begin end. Не знаешь что написать? Напиши begin end. Как говорится. Типа уже будет выглядеть умно. Пишешь какие то операторы. Что то там begin (начать). Где то там end (завершить).

 

A:=15;

 case A of

 1..10:  Memo1.Append('[1-10]!');

 11..20: Memo1.Append('[11-20]!');

 21..30: Memo1.Append('[21-30]!');

 else

 Memo1.Append('Out of range [1-30]!');

 Memo1.Append('your A is' + IntToStr(A));

 end;

Вот учусь! И делюсь своими впечатлениями от учёбы. Про простые вещи!

Дима Линк делает ретро видеоигры, приложения, немного музыку, пишет истории, и еще некоторое ретро.

ВЕБСАЙТ: http://www.dimalink.tv-games.ru/home_rus.html

БЛОГЕР: https://dimalinkrus.blogspot.com/

МАСТОДОН: https://mastodon.social/@DimaLinkRus