//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include<stdio.h>//要加入哦
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
struct rdata
{
   char name[10];
   char score1[4];
   char score2[4];
   char score3[4];
   char score4[4];

} student;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  //建立隨機檔案，
  FILE *fp;
  fp=fopen(".//randomfile.ran","wb");   //這裡的wb是關鍵
  strcpy(student.name,Label1->Caption.c_str());
  strcpy(student.score1,Label2->Caption.c_str());
  strcpy(student.score2,Label3->Caption.c_str());
  strcpy(student.score3,Label4->Caption.c_str());
  strcpy(student.score4,Label5->Caption.c_str());
  fwrite(&student,sizeof(rdata),1,fp);
 // fprintf(fp,"/n");
  strcpy(student.name,Label6->Caption.c_str());
  strcpy(student.score1,Label7->Caption.c_str());
  strcpy(student.score2,Label8->Caption.c_str());
  strcpy(student.score3,Label9->Caption.c_str());
  strcpy(student.score4,Label10->Caption.c_str());
  fwrite(&student,sizeof(rdata),1,fp);
  fclose(fp);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  FILE *fp;
  fp=fopen(".//randomfile.ran","rb");
  long pos=(StrToInt(Edit1->Text)-1)*sizeof(rdata);
  fseek(fp,pos,0);
  fread(&student,sizeof(rdata),1,fp);
  AnsiString aStr;
  aStr.sprintf("%s,/t%s,/t%s,/t%s,/t%s/n",student.name,student.score1,student.score2,student.score3,student.score4);
  Memo1->Lines->Text=aStr;

 // Memo1->Lines->Text=student.score2;
  fclose(fp);
}
//---------------------------------------------------------------------------