#include <memory>
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{  // Сохранить
std::auto_ptr<TStringList> SL(new TStringList);
 
for(int i=0;i<StringGrid1->RowCount;i++)
 {
  StringGrid1->Rows[i]->Delimiter=L';'; // Разделитель
  SL->Add(StringGrid1->Rows[i]->DelimitedText);
 }
SL->SaveToFile("1.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{ // Загрузить
std::auto_ptr<TStringList> SL(new TStringList);
 
SL->LoadFromFile("1.txt");
 
for(int i=0;i<SL->Count;i++)
 {
  StringGrid1->Rows[i]->Delimiter=L';';
  StringGrid1->Rows[i]->DelimitedText= SL->Strings[i];
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{// Очистить
for(int i=0;i<StringGrid1->RowCount;i++)
 {
  StringGrid1->Rows[i]->Clear();
 }
}
//---------------------------------------------------------------------------