Есть задача:чтение двоичного файла с зараннее известной структурой.
Особенность:структура самоадресуемая(динамическое выделение памяти).
Кто-нибудь сталкивался с такой проблемой?Инет по этому поводу молчит,Архангельский только выдает примеры на создание двоичного файла,а по поводу чтения неособо.
Код: Выделить всё
//самоадресуемая структура
struct TEtl
{
AnsiString Meropr;
AnsiString Na4_Meropr;
AnsiString End_Meropr;
AnsiString Parametr;
AnsiString Na4_Parametr;
AnsiString End_Parametr;
TEtl * pr;
};
//--------------------------------------
//заполнение струкутуры
Pnew = new TEtl;
Pnew->Meropr=Etalon->ETL_NameMeropr->Text;
Pnew->Na4_Meropr=Etalon->Etl_MIN->Time.TimeString();
Pnew->End_Meropr=Etalon->Etl_MAX->Time.TimeString();
Pnew->Parametr=Edm_parametr->Text;
Pnew->Na4_Parametr=Edm_MIN->Text;
Pnew->End_Parametr=Edm_MAX->Text;
Pnew->pr= NULL;
if(P0 == NULL) P0 = Pnew;
else Pold->pr = Pnew;
Pold = Pnew;
//-------------------------------------------------------------
//сохранение струкутуры в файл
FILE * F;
Etl_SaveEtl_dialog->Execute();
if ((F = fopen(Etl_SaveEtl_dialog->FileName.c_str(),"wb"))==NULL)
{
ShowMessage("Oaee ia oaaaony nio?aieou");
return;
}
Pnew = P0;
while(Pnew != NULL)
{
fwrite (&Pnew,sizeof(TEtl),1,F);
Pnew = Pnew->pr;
}
//-------------------------------------------------------------
//чтение струкутуры из файла
TEtl *E0=NULL,*Eold,*Enew;
ifstream ifile(Open_ETL->Dialog->FileName.c_str(),ios::binary);
Enew=new TEtl;
while (!ifile.read((char*)&Enew,sizeof(TEtl)).eof())
{
ifile.read((char*)&Enew,sizeof(TEtl));
if(E0 == NULL) E0 = Enew;
else Eold->pr = Enew;
Eold = Enew;
}
//-------------------------------------------------------------
