//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
AnsiString Load_Base(AnsiString aFileName, TTreeView *tv1, TTreeView *tv2, TTreeView *tv3, TTreeView *tv4)
{
TDateTime t1= Now();
// -------------
TFileStream* FileStream;
try {
FileStream = new TFileStream(aFileName, fmOpenRead);
} catch ( ... ) {
MessageBox(NULL, " Невозможно открыть файл 'Estimate.dat' \n\n Данные файла не будут загружены", " Ошибка открытия файла ...", MB_ICONERROR);
return FloatToStrF((Now().Val - t1.Val)*3600.0*24.0, ffFixed, 15, 3) + "c.";
}
// -------------
ShortString tempString;
int FileVersion = 0;
FileStream->Read(&tempString[0], 1); FileStream->Read(&tempString[1], tempString[0]);
FileStream->Read(&tempString[0], 1); FileStream->Read(&tempString[1], tempString[0]);
FileStream->Read(&tempString[0], 1); FileStream->Read(&tempString[1], tempString[0]);
FileStream->Read(&tempString[0], 1); FileStream->Read(&tempString[1], tempString[0]);
FileStream->Read(&tempString[0], 1); FileStream->Read(&tempString[1], tempString[0]);
FileStream->Read(&FileVersion, sizeof(FileVersion));
Load_(FileStream, tv1, &GlobalElementCounter );
Load_(FileStream, tv2, &GlobalMaterialCounter);
Load_(FileStream, tv3, &GlobalMashineCounter );
Load_(FileStream, tv4, &GlobalEnergoCounter );
// ----------- Создаю список материалов и другой фиговины ---------
PrepareSpecificallArrays();
CreateMaterialList (tv1);
CreateRashodnikList(tv1);
CreateMashineList (tv1);
CreateEnergoList (tv1);
CreateServiseList (tv1);
/* Load_2004_07_14(FileStream, tv1, &GlobalElementCounter);
Load_2004_07_14(FileStream, tv2, &GlobalMaterialCounter);
Load_2004_07_14(FileStream, tv3, &GlobalMashineCounter);
Load_2004_07_14(FileStream, tv4, &GlobalEnergoCounter);*/
// -------------
delete FileStream;
return FloatToStrF((Now().Val - t1.Val)*3600.0*24.0, ffFixed, 15, 3) + "c.";
}
void NewStateExternalFunctions::Load(void *ptr, size_t size, const char *name)
{
Load_(ptr, size, name);
}
