//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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); }