C++ Builder XE10 ListView的保存与载入数据

void __fastcall TForm1::btn11Click(TObject *Sender)
{
   //保存到文件
   SaveDialog1->Title="保存分组条件";
   SaveDialog1->Filter="保存分组条件(*.txt)|*.txt|ALL Files(*.*)|*.*";
   SaveDialog1->DefaultExt="txt";
   if (SaveDialog1->Execute())
 {
      TStringList*  Strings=new  TStringList;
      for(int   n=0;   n<RzListView1->Items->Count;   n++)
      {
         TListItem* Item=(TListItem*)RzListView1->Items->Item[n];
         Strings->Add(Item->Caption);
         Strings->AddStrings(Item->SubItems);

      }
      Strings->SaveToFile(SaveDialog1->FileName.c_str());
      delete   Strings;
  }
}

//---------------------------------------------------------------------------

void __fastcall TForm1::btn12Click(TObject *Sender)
{
OpenDialog1->Title="导入条件!";
OpenDialog1->Filter="条件(*.txt)|*.txt|ALL Files(*.*)|*.*";
//设置文件过滤
OpenDialog1->DefaultExt="TXT";
//设置缺省扩展名
if(OpenDialog1->Execute())
{
  //从文件读取
  TStringList*   Strings   =   new   TStringList;
  Strings->LoadFromFile(OpenDialog1->FileName.c_str());
  RzListView1->Clear();
  RzListView1->Items->Count=Strings->Count;
  RzListView1->Items->BeginUpdate();
  for(int   n=0;   n<Strings->Count/4;  n++ )
  {
          TListItem*  Item=RzListView1->Items->Add();
          Item->Caption   =Strings->Strings[n*4];
          Item->SubItems->Add(Strings->Strings[n*4+1]);
          Item->SubItems->Add(Strings->Strings[n*4+2]);
          Item->SubItems->Add(Strings->Strings[n*4+3]);

  }
  delete   Strings;
  RzListView1->Items->EndUpdate();
}
}