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

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

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

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

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

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

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

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

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

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

Настройка компоненты StringGrid

На закладке Additional выберите пиктограмму , установите компоненты StringGrid 1 и StringGrid 2 и отрегулируйте их размеры. В инспекторе объектов для обоих компонент установите значения ColCount равными 2, RowCount равными 1, т.е. по два столбца и одной строке, а значения FixedCols и FixedRows равными 0. Значение ширины клетки столбца DefaultColWidth равным 40.

По умолчанию в компоненту StringGrid ввод данных разрешен только программно. Для разрешения ввода данных с клавиатуры необходимо в свойстве Options строку goEditing для компоненты StringGrid 1 установить в положение true.

Текст функций-обработчиков может иметь следующий вид:

...

int n = 4;

//---------------------------------------------------------------------------

void __fastcall TForm1:: FormCreate(TObject *Sender)

{

randomize(); // Изменение начального адреса для random ()

Edit1-> Text=IntToStr(n);

StringGrid1-> ColCount=n;

for(int i=0; i< n; i++) // Заполнение массива А случайными числами

StringGrid1-> Cells[i][0] = IntToStr(random(21)-10);

Label3-> Hide(); // Скрыть компоненту

StringGrid2-> Hide();

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button1Click(TObject *Sender)

{

n=StrToInt(Edit1-> Text);

if(n> 10){

ShowMessage(" Максимальное количество 10! ");

n=10;

Edit1-> Text = " 10";

}

StringGrid1-> ColCount=n;

for(int i=0; i< n; i++)

StringGrid1-> Cells[i][0]=IntToStr(random(21)-10);

Label3-> Hide();

StringGrid2-> Hide();

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button2Click(TObject *Sender)

{

int i, kol = 0, a[10]; // Декларация одномерного массива

//Заполнение массива А элементами из таблицы StringGrid1

for(i=0; i< n; i++)

a[i]=StrToInt(StringGrid1-> Cells[i][0]);

//Удаление отрицательных элементов из массива А

for(i=0; i< n; i++)

if(a[i]> =0) a[kol++] = a[i];

StringGrid2-> ColCount = kol;

StringGrid2-> Show(); // Показать компоненту

Label3-> Show();

//Вывод результата в таблицу StringGrid2

for(i=0; i< kol; i++) StringGrid2-> Cells[i][0]=IntToStr(a[i]);

}