Сервис онлайн-записи на собственном Telegram-боте

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно.

Чат-бот для мастеров и специалистов, который упрощает ведение записей:

— Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать;

Начать пользоваться сервисом

Как продвинуть сайт на первые места?

Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.

Ускорение продвижения

Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.

Начать продвижение сайта

Procedure ReCalculation;

public

{ Public declarations }

end;

1. В разделе implementation текста модуля Unit1 добавьте процедуру ReCalculation:

implementation

{$R *.dfm}

Procedure TForm1.ReCalculation;

Var

I, J, N, M, A, B, C: Integer;

Begin

N: =StrToInt(Edit1.Text);

M: =StrToInt(Edit2.Text);

for I: =1 To N do

for J: =1 To M Do

Try

A: = StrToInt(StringGrid1.Cells[J, I]);

B: = StrToInt(StringGrid2.Cells[J, I]);

C: =A+B;

StringGrid3.Cells[J, I]: =IntToStr(C)

Except

Beep;

StringGrid3.Cells[J, I]: ='? ';

End;

End;

1. Последовательно добавьте соответствующим объектам перечисленные ниже методы, определяющие реакцию приложения на различные события (см. п. Ошибка! Источник ссылки не найден. – Ошибка! Источник ссылки не найден. инструкции по выполнению лабораторной работы № 2). По мере добавления методов регулярно выполняйте запуск программы, исправляйте допущенные ошибки. Немного поработайте с приложением, чтобы разобраться с особенностями его работы. Попробуйте, перетаскивая границы изменить размеры окна, сменить его положение, свернуть, максимизировать, развернуть до нормальных размеров, понажимать на кнопки, ввести в редактируемые элементы произвольную текстовую, числовую информацию, нажать клавиши Alt+N, Alt+M и т.д.

1. Метод Button1Сlick – реакция на событие onClick, нажатие кнопки TButton1 («Выход»):

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

1. Метод FormCreate – реакция на событие onCreate, создание формы Form1 («Сложение матриц») при запуске приложения:

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0, 1]: ='1';

StringGrid1.Cells[1, 0]: ='1';

StringGrid1.Cells[1, 1]: ='0';

StringGrid2.Cells[0, 1]: ='1';

StringGrid2.Cells[1, 0]: ='1';

StringGrid2.Cells[1, 1]: ='0';

StringGrid3.Cells[0, 1]: ='1';

StringGrid3.Cells[1, 0]: ='1';

StringGrid3.Cells[1, 1]: ='0'

end;

1. Метод Edit1Change – реакция на события onChange, изменение Edit1 (количества строк N):

procedure TForm1.Edit1Change(Sender: TObject);

Var

J, N, M: Integer;

Begin

M: =StrToInt(Edit2.Text);

N: =StrToInt(Edit1.Text);

StringGrid1.RowCount: =N+1;

StringGrid2.RowCount: =N+1;

StringGrid3.RowCount: =N+1;

StringGrid1.Cells[0, N]: =Edit1.Text;

StringGrid2.Cells[0, N]: =Edit1.Text;

StringGrid3.Cells[0, N]: =Edit1.Text;

for J: =1 to M do

Begin

If StringGrid1.Cells[J, N]=''

then StringGrid1.Cells[J, N]: ='0';

If StringGrid2.Cells[J, N]=''

then StringGrid2.Cells[J, N]: ='0';

End;

ReCalculation

End;

1. Метод Edit2Change – реакция на события onChange, изменение Edit2 (количества столбцов M):

procedure TForm1.Edit2Change(Sender: TObject);

Var

I, N, M: Integer;

begin

M: = StrToInt(Edit2.Text);

N: =StrToInt(Edit1.Text);

StringGrid1.ColCount: =M+1;

StringGrid2.ColCount: =M+1;

StringGrid3.ColCount: =M+1;

StringGrid1.Cells[M, 0]: =Edit2.Text;

StringGrid2.Cells[M, 0]: =Edit2.Text;

StringGrid3.Cells[M, 0]: =Edit2.Text;

for I: =1 to N do

Begin

If StringGrid1.Cells[M, I]=''

then StringGrid1.Cells[M, I]: ='0';

If StringGrid2.Cells[M, I]=''

then StringGrid2.Cells[M, I]: ='0';

End;