Сохранение данных в файл

TStringList *file1 = new TStringList;
file1->Add(Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format(" P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2));
int iFile=FileCreate("file32.txt");
FileOpen(iFile,fmOpenWrite);
FileWrite(iFile,file1,80);
FileClose(iFile);

file1->SaveToFile("file32.txt");

]int iFile=FileCreate("file32.txt");

Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format(" P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2)

file1->LoadFromFile("file32.txt");

                        if (!FileExists(Format("%.2d.%.2d.%.2d.txt",Date,2)));
                        {
                               int file1=FileCreate(Format("%.2d.%.2d.%.2d.txt",Date,2));
                               
                        }
                        file1->LoadFromFile(Format("%.2d.%.2d.%.2d.txt",Date,2));
                        file1->Add(Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format(" P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2));
                        file1->SaveToFile(Format("%.2d.%.2d.%.2d.txt",Date,2));

 if (!FileExists(Format("%.2d.%.2d.%.2d.txt",Date,2)));
{
FileCreate(Format("%.2d.%.2d.%.2d.txt",Date,2));
}
file1->LoadFromFile(Format("%.2d.%.2d.%.2d.txt",Date,2));
file1->Add(Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format("P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2));
file1->SaveToFile(Format("%.2d.%.2d.%.2d.txt",Date,2));

if (FileExists(...))
 file1->LoadFromFile(...); // Если файл есть, то подгрузим его содержимое
file1->Add(...); // иначе и в любом случае просто добавим нужное
file1->SaveToFile(...); // и сохраним

//---------------------------------- Запись трендов
//Директории
AnsiString
path1="ТрендыБВР.М\\",
path2="ТрендыБВР.М\\"+Format("%.2d.20%.2d",Date2,2),
path3="ТрендыБВР.М\\"+Format("%.2d.20%.2d",Date2,2)+"\\"+Format("%.2d.%.2d.%.2d.txt",Date,2);
 //Проверка существовиния директорий, файлов
if(DirectoryExists(path1.c_str())==false)
{
CreateDirectory (path1.c_str(), NULL);
}
if(DirectoryExists(path2.c_str())==false)
{
CreateDirectory (path2.c_str(), NULL);
}
 
if (!FileExists(path3))
{
FileCreate(path3);
}
 //запись трендов в файл
TStringList *file1 = new TStringList;
file1->LoadFromFile(path3);
file1->Add(Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format(" P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2));
file1->SaveToFile(path3);

 int t=0;
 if (!FileExists(path3))
{
   t = FileCreate(path3);
}
  if (t) FileClose(t);
  Memo1->Lines->SaveToFile(path3); // далее работа с файлом (запись StringList)