Чтение/запись файа

struct TagDirection{
char category;
int lastuses;
bool isfixed;
char name[27];
};
 
void ReadTag(String tagfname, TagDirection* SourceTag ){
int fh=FileOpen(tagfname,fmOpenRead);
FileSeek(fh,0,0);
char count;
FileRead(fh,&count,sizeof(char));
SourceTag=new TagDirection[count];
for(char i=0;i<count;i++){
FileRead(fh,&SourceTag[i].category,sizeof(char));
FileRead(fh,&SourceTag[i].lastuses,sizeof(int));
FileRead(fh,&SourceTag[i].isfixed,sizeof(bool));
FileRead(fh,&SourceTag[i].name,sizeof(char)*27);
}
FileClose(fh);
}
 
void WriteTag(String tagfname, TagDirection* SourceTag, char count){
int fh=FileCreate(tagfname);
if ( fh == -1) ShowMessage("файл не существует");
 
FileSeek(fh,0,0);
FileWrite(fh,&count,sizeof(char));
for(char i=0;i<count;i++){
FileWrite(fh,&SourceTag[i].category,sizeof(char));
FileWrite(fh,&SourceTag[i].lastuses,sizeof(int));
FileWrite(fh,&SourceTag[i].isfixed,sizeof(bool));
FileWrite(fh,&SourceTag[i].name,sizeof(char)*27);
}
FileClose(fh);
}
 
void PrintTag(TagDirection* SourceTag, char count, TMemo* memo){
memo->Clear();
for(char i=0;i<count;i++){
String l=(AnsiString)SourceTag[i].category+"|"+SourceTag[i].name+"; uses="+IntToStr(SourceTag[i].lastuses);
memo->Lines->Add(l);
}
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
int count=2;
TagDirection* TD=new TagDirection[count];
TD[0].category='f';
TD[0].lastuses=20;
TD[0].isfixed=false;
StrCopy(TD[0].name,"первый");
TD[1].category='q';
TD[1].lastuses=100500;
TD[1].isfixed=true;
StrCopy(TD[1].name,"Второй");
WriteTag("C:\\TAG",TD,count);
TagDirection* TD2;
ReadTag("C:\\TAG",TD);
PrintTag(TD2,count,Memo1);
}

void ReadTag(String tagfname, TagDirection* SourceTag ){
std::ifstream in;
in.open(tagfname.c_str());
char count=0;
in>>count;
SourceTag=new TagDirection[count];
for(char i=0;i<count;i++){
in>>SourceTag[i].category>>SourceTag[i].lastuses>>SourceTag[i].isfixed>>SourceTag[i].name;
}
in.close(); 
}
 
void WriteTag(String tagfname, TagDirection* SourceTag, char count){
std::ofstream out;
out.open(tagfname.c_str());
out<<count;
for(char i=0;i<count;i++)
out<<SourceTag[i].category<<SourceTag[i].lastuses<<SourceTag[i].isfixed<<SourceTag[i].name;
out.close();
}

WriteTag("C:\\TAG",TD,count);
TagDirection* TD2;
ReadTag("C:\\TAG",TD);
PrintTag(TD2,count,Memo1);