Лабораторные работы / ЛЗ1 / Программа / Unit4

//---------------------------------------------------------------------------
//ИЗМЕНЕНИЕ ПОЛЕЙ ЗАПИСИ
#include <vcl.h>
#include <stdio.h>
#include <dstring.h>
#pragma hdrstop
#include "Unit4.h"
#include "Unit1.h"
#include "Unit3.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
extern FILE *FN;
extern Auto Info;
extern Auto InfoOld;
extern int tmp;
extern AnsiString Trans(char []);
extern void PrintList(FILE *);
extern ChangeInfo(FILE *,Auto ,Auto);
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Отменить изменение полей записи
void __fastcall TForm4::Button2Click(TObject *Sender)
{
  Form4->Edit1->Text = Trans(InfoOld.Name);
  Form4->Edit2->Text = Trans(InfoOld.Mark);
  Form4->Edit3->Text = IntToStr(InfoOld.SeatsNumb);
  Form4->Edit4->Text = FloatToStr(InfoOld.UseP);
}
//---------------------------------------------------------------------------
//Изменить поля записи
void __fastcall TForm4::Button1Click(TObject *Sender)
{
  Auto InfoNew;

  if (Application->MessageBox(
  "Хотите изменить эту информацию?","Изменение",
  MB_YESNO+MB_ICONQUESTION)==IDYES)
  {
    strcpy(InfoNew.Name, Form4->Edit1->Text.c_str());
    strcpy(InfoNew.Mark, Form4->Edit2->Text.c_str());
    InfoNew.SeatsNumb = StrToInt(Form4->Edit3->Text);
    InfoNew.UseP = StrToFloat(Form4->Edit4->Text);
    ChangeInfo(FN,InfoOld,InfoNew);
    Form4->Edit1->Text = "";
    Form4->Edit2->Text = "";
    Form4->Edit3->Text = "";
    Form4->Edit4->Text = "";
    Form4->Close();
    PrintList(FN);
  }
}
//---------------------------------------------------------------------------