, int N)
{> Cells [0] [N] = IntToStr (N);// порядковий номер> Cells [1] [N] = (String) d. Naimen;> Cells [2] [N] = (String) d. Dataproizvod;> Cells [3] [N] = (String) d. SrokGodnosti;> Cells [4] [N] = (String) d. NomerSerii;> Cells [5] [N] = FormatFloat (В«0.00В», d. Cena);
}
// -
// Функція запису до фіксованого рядка (Певного компонента StringGrid) заголовками стовбцівsetkaTitle (TStringGrid * Sg)
{> Cells [0] [0] = "№В»;> Cells [1] [0] = В«НазваВ»;> Cells [2] [0] = В«Дата виробництва В»;> Cells [3] [0] =" Термін прідатності> Cells [4] [0] = В«Номер СеріїВ»;> Cells [5] [0] = В«ЦінаВ»;
}
// -
// Перша вкладка: Запис даніх до бінарного файлу (кнопка В«Записати у файлВ») __fastcall TForm1: Button1Click (TObject * Sender)
{
// Введення даніх з наведених тіпів (dan. Naimen, Edit1-> Text.c_str ()); (dan. DataProizvod, Edit2-> Text.c_str ()); (dan. SrokGodnosti, Edit3-> Text.c_str ()); (dan. NomerSerii, Edit4-> Text.c_str ());. Cena = StrToFloat (Edit5-> Text); = fopen (nB, В«abВ»);// Відкрити бінарній файл для запису у Кінець файлу (& dan, sizeof (dan), 1, fB);// Записати структуру у бінарній файл (fB);// закрити бінарній файл
}
// -
// Друга вкладка: Перегляд вмісту бінарного файлу (кнопка В«ПереглядВ») __fastcall TForm1: Button2Click (TObject * Sender)
{(SG2);// підпісаті стовпці SG2 (StringGrid2) = fopen (nB, В«rbВ»);// Відкрити бінарній файл для зчітуванняk = 1; (fread (& dan, sizeof ( dan), 1, fB)> 0)
{(SG2, dan, k);// Записати дані до SG2 у k-рядок + +;
} -> RowCount = k;// Встановити потрібну Кількість рядків (fB);// закрити файл
}
// -
// Третя вкладка: Завдання - Виведення відомостей про товари Термін прідатності якіх закінчується на протязі 5 днів.__fastcall TForm1: Button3Click (TObject * Sender)
{= fopen (nB, В«rbВ»); k = 1; (fread (& dan, sizeof (dan), 1, fB)> 0) ((DaySpan (Now () , StrToDate (dan. SrokGodnosti)) <5)
{(SG3, dan, k); + +;
} (k> 1)
{-> RowCount = k; (SG3);
} ShowMessage (В«Товари Із закінченням терміну прідатності на протязі 5 днів відсутніВ»); (fB);
}
// -
// Четверта вкладка: сортуваннях масиву (Завдання відсортучваті за прізвіщем за ЗРОСТАННЯ ) __fastcall TForm1: Button4Click (TObject * Sender)
{i, j, k; = fopen (nB, В«rbВ»);// Відкри...
