💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Удаление объекта, стоящего между соседними элементами списка

При удалении элемента, занимающего промежуточную позицию в списке, происходит переключение связей таким образом, что поле ссылки элемента, стоящего перед удаляемым динамическим объектом, указывает на элемент, стоящий за удаляемым объектом.

EICut: = List; {устанавливаем указатель на удаляемый элементв начало списка}

while EICut^.Link< > Nil do

begin

if EICut^.Data = Priznak

then

begin

EIPred^.Link: = EICut^.Link;

Disopose(EICut);

EICut: = EIPred^.Link

End

Else

Begin

ElPred: = EICut;

EICut: = EICut^.Link

End

End

Удаление последнего элемента списка

При удалении последнего элемента списка в поле ссылки предыдущего элемента заносится значение Nil, связь между последним и предпоследним элементами списка разрывается.

EIEnd: = List; {устанавливаем указатель последнего элемента списка}

while EIEnd^.Link < > Nil do {пока не достигнут конец списка}

Begin

ElPred: = ElEnd; {перемещение предыдущего элемента

на следующую позицию}

ElEnd: = ElEnd^.Link; {перемещение удаляемого элемента

на следующую позицию}

End;

ElPred^. Link: = Nil; {установка предыдущего элемента последним}
Dispose(EIEnd); {удаление последнего элемента}