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

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

Настройка компоненты 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]);

}