Void __fastcall tForm1::Button1Click(tObject *Sender)
{
OpenDialog1->Title="Создать новый файл";
if (OpenDialog1->Execute()){
File_Zap=OpenDialog1->FileName;
if ((Fz=fopen(File_Zap.c_str(),"w+"))==NULL)
{ShowMessage("Ошибка создания файла!");
return;}
}
Memo1->Lines->Add("Создан новый файл: "+AnsiString(File_Zap));
fclose(Fz);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Fz=fopen(File_Zap.c_str(),"a+");
strcpy(Zap.FIO,Edit1->Text.c_str());
Zap.gr=StrToInt(Edit2->Text);
Zap.ng=StrToInt(Edit3->Text);
Zap.fiz=StrToInt(Edit4->Text);
Zap.mat=StrToInt(Edit5->Text);
Zap.inf=StrToInt(Edit6->Text);
Zap.him=StrToInt(Edit7->Text);
Zap.sb=StrToFloat(Edit8->Text);
Memo1->Lines->Add(Edit1->Text+" "+Edit2->Text+" "+Edit3->Text+" "+
Edit4->Text+" "+Edit5->Text+" "+Edit6->Text+" "+
Edit7->Text+" "+Edit8->Text);
fwrite(&Zap,size,1,Fz);
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="0";
Edit5->Text="0";
Edit6->Text="0";
Edit7->Text="0";
Edit8->Text="";
fclose(Fz);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{int c1,c2;
OpenDialog1->Title="Открыть файл";
if (OpenDialog1->Execute()){
File_Zap=OpenDialog1->FileName;
if ((Fz=fopen(File_Zap.c_str(),"r+"))==NULL)
{
ShowMessage("Ошибка открытия файла!");
return;}
}
Memo1->Lines->Add("-------------------Все сведения-----------------");
Memo1->Lines->Add("ФИО\tГод рожд\t\t№ гр\tФиз\tМат\tИнф\tХим\tСр балл");
while (1){
if(!fread(&Zap,size,1,Fz)) break ;
else
{
Memo1->Lines->Add((String)Zap.FIO+"\t"+IntToStr(Zap.gr)
+"\t"+IntToStr(Zap.ng)+"\t"+IntToStr(Zap.fiz)+"\t"+IntToStr(Zap.mat)
+"\t"+IntToStr(Zap.inf)+"\t"+IntToStr(Zap.him)
+"\t"+FloatToStr(Zap.sb));
ComboBox1->Items->Add(IntToStr(Zap.ng));
}
}
fclose(Fz);
c1=c2=0;
while (c1<ComboBox1->Items->Count)
{c2=c1+1;
while (c2<ComboBox1->Items->Count)
{
if (AnsiCompareStr(ComboBox1->Items->Strings[c1],ComboBox1->Items->Strings[c2])==0)
ComboBox1->Items->Delete(c2);
else c2++;
}
c1++;
}
ComboBox1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
SaveDialog1->Title="Сохранить файл";
if (SaveDialog1->Execute()){
AnsiString FileNameRez=SaveDialog1->FileName;
Memo1->Lines->SaveToFile(FileNameRez);}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
exit(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit4Change(TObject *Sender)
{
Edit8->Text=FloatToStr((StrToInt(Edit4->Text)+StrToInt(Edit5->Text)+StrToInt(Edit6->Text)+
StrToInt(Edit7->Text))/4.);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
if ((Fz=fopen(File_Zap.c_str(),"r+"))==NULL)
{
ShowMessage("Ошибка открытия файла!");
return;}
Memo1->Lines->Add("---Анкетные данные отличников---");
while (1){
if(!fread(&Zap,size,1,Fz)) break ;
else
{
if ((Zap.ng==StrToInt(ComboBox1->Text)) && (Zap.fiz>=9) &&
(Zap.mat>=9) && (Zap.inf>=9) && (Zap.him>=9))
Memo1->Lines->Add((String)Zap.FIO+"\t"+IntToStr(Zap.gr)
+"\t"+IntToStr(Zap.ng));
}
}
}
//---------------------------------------------------------------------------
Результат работы программы:
Ответ: Создали файл данных и заполнили его записями, распечатали в поле Memo анкетные данные студентов-отличников из интересующей нас группы.