ти бінарній файл для зчітування = kol (& fB);// візначіті кількість запісів у файлі * mass = new data [k];// віділіті місце у пам яті под масив структур Із k ЕЛЕМЕНТІВ (& fB, mass, k);// виклик Функції В«Заповнення масиву Даними з файлуВ» (mass , k);// виклик Функції В«сортуванняхВ» (i = 0; i RowCount = k +1;// Встановити потрібну Кількість рядків табліці SG4 [] mass;// звільніті дінамічну пам яті, віділену под масив структур (fB);// закрити бінарній файл
}
// -
// Створення текстового файлу з бінарного по заданій умові (з авдання Стовп.4 ) __fastcall TForm1: Button5Click (TObject * Sender)
{-> Clear ();// підготовка (очищені) компонента для Виведення результатів = fopen (nT, В«wtВ»);// Відкрити текстовий файл = fopen (nB, В«rbВ») ;// Відкрити бінарній файл
// Виклик Функції для запісування до текстового файлу даніх за умів (& fT, & fB); (fT);// закрити текстовий файл (fB);// закрити бінарній файл-> ; Lines-> LoadFromFile (nT);// завантажити вміст текстового файлу до Memo1
}
// -
// Робота з MainMenu
// -
// Меню - Очищення файлів - Бінарній__fastcall TForm1: N5Click (TObject * Sender)
{= fopen (nB, В«wbВ»); (fT == NULL) {ShowMessage (В«Помилка роботи з файломВ»); return;} (fB);
}
// -
// Меню - Очищення файлів - Текстовій__fastcall TForm1: N6Click (TObject * Sender)
{= fopen (В«kurs.txtВ», В«wtВ»); (fT == NULL) {ShowMessage (В«Помилка роботи з файломВ»); return;} (fT);
}
// -
// Вихід (Меню) __fastcall TForm1: N7Click (TObject * Sender)
{Close ();
}
4. Створення Додатковий форм
Форми В«Про автораВ» та В«ЗавданняВ»
Для забезпечення ІНФОРМАЦІЙНОЇ Частини проекту, а самє Надання ІНФОРМАЦІЇ про автора роботи та для ознайомлення з постановкою Завдання, додамо, послідовно ще Дві форми.
Почнемо з форми, яка відображає авторство проекту. Для цього в С + + Builder Виконаємо команду File/New Form. У діалоговому вікні NewItems на закладці Forms віберемо форму, яка назівається AboutBox, и настігнемо ОК. На Цій ФОРМІ змінімо, при необхідності, компоненти Label, Які відображатімуть інформацію про авторство, тему и керівника роботи. Зовнішній вигляд форми:
В