Портал Разработчиков

#define FileBase "text.txt"
int count=0;//количество
//.........................
if(FileExists(FileBase,1))
{
TFileStream *tempf = new TFileStream(FileBase,fmOpenRead); // открываем файл
if( tempf != NULL )
{
count=0;
tempf->Read(&count,sizeof(int));
//можно тут вывести
}
}
else
{
TFileStream *tempf = new TFileStream(FileBase,fmCreate); // создаем файл
tempf->Write(&count,sizeof(int));//пишем количество структур
}
tempf->Free();