Лабы / ООП.Builder / Лабы / fj / Unit1

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <fstream.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x = 0;
int color;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Exit1Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Load1Click(TObject *Sender)
{
 if (OpenDialog1->Execute())
  {
   ifstream inFile;
   inFile.open(OpenDialog1->FileName.c_str());
   unsigned char i;
    inFile>>i;
    if(i=='i')
    {
      while (i!='=') inFile>>i;
      inFile>>x;
    }
    else
    {
    while (i!='=') inFile>>i;
    inFile>>color;
    }
    inFile>>i;
    if(i=='i')
    {
      while (i!='=') inFile>>i;
      inFile>>x;
    }
    else
    {
    while (i!='=') inFile>>i;
    inFile>>color;
    }
   inFile.close();
  }
 RadioGroup1->ItemIndex = x;
 Form1->Color = color;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
 if (ColorDialog1->Execute())
  {
   Form1->Color = ColorDialog1->Color;
   color = ColorDialog1->Color;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Save1Click(TObject *Sender)
{
  x = RadioGroup1->ItemIndex;
  if (SaveDialog1->Execute())
   {
     ofstream outFile;
     outFile.open(SaveDialog1->FileName.c_str());
     outFile<<"index="<<x<<endl;
     outFile<<"color="<<color;
     outFile.close();
   }
}
//---------------------------------------------------------------------------