p>
// -
// функція визначення кількості запісівkol (FILE ** f)
{(* f, 0,2);// Встановити курсор у Кінець файлаn = ftell (* f)/sizeof (data);// візначіті кількість структур у файлі (* f, 0, 0);// перемістіті курсор на качан файлаn;
}
// -
// функція Формування масиву запісів void formir (FILE ** f, data mass [], int k)
{(int i = 0; i
}
// -
// функція сортуваннях масиву за ЗРОСТАННЯ по полю прізвіща void sort (data mass [], int k)
{i, j; data temp; (i = 0; i
{= mass [i]; [i] = mass [j]; [j] = temp;
}
}
// -
// Функція запису до текстового файлу даніх з бінарного файлу за заданій умові (Відомості про товари, вироблений больше місяця тому)
void zapis (FILE ** FT, FILE ** FB)
{
// допокі НЕ дійшлі до кінця бінарного файлу зчітуваті дані з нього
while (fread (& dan, sizeof (dan), 1, * FB)> 0)
// перевірка умови (Завдання стовп. 4) І, ЯКЩО вона віконується,
// Записати дані до текстового файлу
if (MonthSpan (Now (), StrToDate (dan. DataProizvod))> 1) (* FT, В«% s% s% s% s% 5.2f n В», & dan. Naimen, & dan. DataProizvod, & dan. SrokGodnosti, & dan. NomerSerii, dan. Cena);
}
3. Основний модуль проекту
Головна форма проекту має вигляд:
В
Текст програмного коду для командних елюентів головної форми:
include
# pragma hdrstop
# include В«Unit1.hВ»
# include В«Bibl.hВ»// долученості заголовного файлу власної бібліотеки
// -
# pragma package (smart_init)
# pragma resource В«*. dfmВ» * Form1;
// -
__fastcall TForm1: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
// -
// Функція запису до комірок Певного компонента StringGrid Даними полів структуріsetkaData (TStringGrid * Sg, data d...
