Расчет закупки сырья промышленного предприятия

//---------------------------------------------------------------------------
#include <fstream>
#include <iostream>
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int min1_n=0; //Пошук мінімальної кількості примірників
 
int find1[25];
int l=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
struct struct1 //Структура даних
{
char avtor[25]; //Автор
char name[25]; //Ім'я
int year; //Рік видання
char edition[25]; //Видавництво
int number; //Кількість примірників
}
struct1[25];
//---------------------------------------------------------------------------
int FileCount() //Визначення кількості рядків у файлі
{
int count1=0;
ifstream file1("file1.txt");
while(!file1.eof()) if(file1.get()=='\n') count1++;
return count1;
}
//---------------------------------------------------------------------------
void Read(TStringGrid *StringGrid)
{
StringGrid->RowCount=2;
 
ifstream file1("file1.txt");
for (int i=0;i<FileCount();i++)
        {
        file1>>struct1[i].avtor;
        file1>>struct1[i].name;
        file1>>struct1[i].year;
        file1>>struct1[i].edition;
        file1>>struct1[i].number;
 
        StringGrid->Cells[0][i+1]=struct1[i].avtor;
        StringGrid->Cells[1][i+1]=struct1[i].name;
        StringGrid->Cells[2][i+1]=struct1[i].year;
        StringGrid->Cells[3][i+1]=struct1[i].edition;
        StringGrid->Cells[4][i+1]=struct1[i].number;
 
        StringGrid->RowCount++;
        }
}
//---------------------------------------------------------------------------
int CheckDigit(TEdit * Edit)
{
AnsiString str1=Edit->Text;
int l1=str1.Length();
 
for (int i=1;i<=l1;i++)
        {
        if (isdigit(str1[i])==false) {return -1;}
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->Text="Курсова робота";
 
StringGrid1->Cells[0][0]="Автор";
StringGrid1->Cells[1][0]="Назва книги";
StringGrid1->Cells[2][0]="Рік видання";
StringGrid1->Cells[3][0]="Видавництво";
StringGrid1->Cells[4][0]="Кіл. примірників";
 
Read(StringGrid1);
 
Form1->DoubleBuffered=true;
 
Label10->Caption="";
 
Label11->Caption="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Edit1->Text.IsEmpty() | Edit2->Text.IsEmpty() | Edit3->Text.IsEmpty() | Edit4->Text.IsEmpty() | Edit5->Text.IsEmpty())
        {
        ShowMessage("Ви ввели не всі дані! Будь-ласка перевірте чи всі поля заповнені.");
        }
else if (CheckDigit(Edit3)==-1 | CheckDigit(Edit5)==-1) //Алгоритм запису даних у файл
        {
        ShowMessage("Ви ввели невірний тип даних!");
        }
else if (CheckDigit(Edit3)!=-1 | CheckDigit(Edit5)!=-1) //Алгоритм запису даних у файл
        {
        ofstream file1("file1.txt", ios::app); //Оголошення змінної для звернення до файлу
        file1<<Edit1->Text<<' '<<Edit2->Text<<' '<<Edit3->Text<<' '<<Edit4->Text<<' '<<Edit5->Text<<'\n';
        Label10->Caption="Дані успішно додані до файлу.";
        }
Read(StringGrid1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
 
Label10->Caption="Дані успішно очищені!";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (CheckDigit(Edit6)!=-1 | CheckDigit(Edit7)!=-1)
{
if (RadioButton1->Checked)
        {
        min1_n=0;
        int min1=struct1[0].number;
        for (int i=0;i<FileCount();i++)
                {
                if (struct1[i].number<=min1)
                        {
                        min1=struct1[i].number;
                        min1_n=i+1;
                        }
                }
        StringGrid1->Refresh();
        Label11->Caption="Шуканий елемент знайдено.";
        }
if (RadioButton2->Checked)
        {
        l=0;
        find1[0]=0;
        int year_min=StrToInt(Edit6->Text);
        int year_max=StrToInt(Edit7->Text);
        AnsiString Edition=Edit8->Text;
 
        for (int i=0;i<FileCount();i++)
                {
                if (struct1[i].year>=year_min && struct1[i].year<=year_max && Edition==struct1[i].edition)
                        {
                        find1[l]=i+1;
                        l++;
                        }
                }
        StringGrid1->Refresh();
        if (l>0)
                {
                Label11->Caption="Знайдено елементів: "+IntToStr(l);
                }
        else {Label11->Caption="Пошук не дав результатів!";}
        }
}
else if (CheckDigit(Edit6)==-1 | CheckDigit(Edit7)==-1)
        {
        ShowMessage("Ви ввели невірний тип даних!");
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
StringGrid1->Canvas->Brush->Color=clBlack; //Колір обводки
 
if (RadioButton1->Checked)
        {
        if (ARow==min1_n)
                {
                StringGrid1->Canvas->FrameRect(Rect);
                }
        }
if (RadioButton2->Checked)
        {
        for (int i=0;i<l;i++)
                {
                if (ARow==find1[i])
                        {
                        StringGrid1->Canvas->FrameRect(Rect);
                        }
                }
        }
}
//---------------------------------------------------------------------------