//---------------------------------------------------------------------------
#include <vcl.h>
#include <SysUtils.hpp>
#pragma hdrstop

#include "BinaryFile.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)

template <class Theader, class Trecord>
 BinaryFile<Theader, Trecord>::BinaryFile()
 { FisOpen = false;
   filename = "";
 }

template <class Theader, class Trecord>
 BinaryFile<Theader, Trecord>::~BinaryFile()
 {if (FisOpen) this->Close(); }

template <class Theader, class Trecord>
 void BinaryFile<Theader, Trecord>::Assign(AnsiString S)
 { filename = S;
 }


 template <class Theader, class Trecord>
 void BinaryFile<Theader, Trecord>::Open()
 { if (FileExists(filename))
    { Handle = FileOpen(filename, fmOpenReadWrite);
      FisOpen = true;}
 }

template <class Theader, class Trecord>
 void BinaryFile<Theader, Trecord>::Create()
 { Theader H;
   Handle = FileCreate(filename);
   FileWrite(Handle, &H, sizeof(Theader));
 }


template <class Theader, class Trecord>
 void BinaryFile<Theader, Trecord>::Close()
 { FileClose(Handle);
   FisOpen = false;
 }

template <class Theader, class Trecord>
 void BinaryFile<Theader,Trecord>::WriteHeader(Theader H)
 {FileSeek(Handle, 0, 0);
  FileWrite(Handle, &H, sizeof(Theader));
 }


 template <class Theader, class Trecord>
 void BinaryFile<Theader, Trecord>::ReadHeader(Theader &H)
 { FileSeek(Handle, 0, 0);
   FileRead(Handle, &H, sizeof(Theader));
 }


 template <class Theader, class Trecord>
 int BinaryFile<Theader, Trecord>::Size()
   { int BytePos = FileSeek(Handle, 0, 2);
     return (BytePos - sizeof(Theader))/sizeof(Trecord); }

 template <class Theader, class Trecord>
 void BinaryFile<Theader, Trecord>::Read(Trecord &R, int Pos)
   { int BytePos = sizeof(Theader)+ Pos*sizeof(Trecord);
     FileSeek(Handle,BytePos, 0);
     FileRead(Handle, &R, sizeof(Trecord));
   }

 template <class Theader, class Trecord>
 void BinaryFile<Theader, Trecord>::Write(Trecord R, int Pos)
   { int BytePos = sizeof(Theader) + Pos*sizeof(Trecord);
     FileSeek(Handle, BytePos, 0);
     FileWrite(Handle, &R, sizeof(Trecord));
   }