#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{


    for (i = 0; i<100; i++)
      {
       data[i] = random(100);
       Memo1->Lines->Add(IntToStr(data[i]));
      }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{

  FILE *fp;
  if (OpenDialog1->Execute())
 {
  if((fp=fopen(OpenDialog1->FileName.c_str(),"r"))!=NULL);
  {
      for(j=0;j<100;j++)
        {
         fscanf(fp,"%d",&rdata[j]);
         Memo2->Lines->Add(IntToStr(rdata[j]));

        }


  } fclose(fp);
 }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  FILE *fp;
  if (SaveDialog1->Execute())
 {
  if((fp=fopen(SaveDialog1->FileName.c_str(),"w"))!=NULL);
  {
    for(k=0;k<100;k++)
      {

         fprintf(fp,"%d",data[k]);
         fprintf(fp,"\n");

      }
  }   fclose(fp);
 }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 randomize();        
}
//---------------------------------------------------------------------------