• Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;


Иллюстрированный самоучитель по Delphi 7 для начинающих

Инструкции выбора. Инструкции if, case.

Инструкция if

Вариант 1: if-then-else.

if Условие then

begin

{ Инструкции, которые выполняются,) { если условие истинно. } end else

begin

{ Инструкции, которые выполняются, } { если условие ложно } end;

Вариант 2: if-then.

if Условие then

begin

{ Инструкции, которые выполняются, } { если условие истинно. } end;

Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать
.

Инструкция case

Вариант 1:

case Выражение of

Список1_Констант: begin

 { инструкции } end;

Список2_Констант: begin

{ инструкции } end;

СписокJ_Констант: begin

{ инструкции } end; end;

Вариант 2:

case Выражение of

Список1_Констант: begin

{ инструкции } end;

Список2_Констант: begin

{ инструкции } end;

СписокJ_Констант: begin

{ инструкции J} end; else

begin

{ инструкции } end;
 end;

Инструкции между begin и end выполняются, если значение выражения, записанного после case, совпадает с константой из соответствующего списка. Если это не так, то выполняются инструкции, находящиеся после else, между begin и end.

Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать
.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.