Сохранить данные из StringGrid-a в файл

void __fastcall TForm1::Open1Click(TObject *Sender)
{
    if (OpenDialog1->Execute())
    {    StatusBar1->Panels->Items[1]->Text=OpenDialog1->FileName;
 
    int f; // дескриптор файла
           AnsiString st; // прочитанная строка
        bool fl = true; // true - чтение первой строки
    if (( f = FileOpen(OpenDialog1->FileName,fmOpenRead)) == -1 )
             return;
                      // файл открыт
                   // загрузить таблицу
        while ( GetLine(f, &st) != 0)
 {
                 // добавить строку в таблицу
           if ( fl )
 {
               StringGrid1->Rows[StringGrid1->Row]->DelimitedText = st;
           fl = false;
 }
       else
 {
              StringGrid1->RowCount++;
              StringGrid1->Row = StringGrid1->RowCount-1;
              StringGrid1->Rows[StringGrid1->Row]->DelimitedText = st;
    }
    }
      FileClose(f);
   }
   }
         // читает из файла строку символов
        // от текущей позиции до символа "новая строка"
       // значение функции - кол-во прочитанных символов
      int GetLine(int f, AnsiString *st)
        {
      unsigned char buf[256]; // строка (буфер)
      unsigned char *p = buf; // указатель на строку
      int n; // кол-во прочитанных байт (значение ф-и FileRead)
      int len = 0; // длина строки
        n = FileRead(f, p, 1 );
      while ( n != 0 )
        {
      if ( *p == '\r')
        {
        n = FileRead(f, p, 1); // прочитать '\n'
       break;
         }
          len++;
          p++;
          n = FileRead(f, p, 1);
         }
         *p = '\0';
       if ( len !=0)
          st->printf("%s", buf) ;
       return len;
}

void __fastcall TForm1::SaveAs1Click(TObject *Sender)
{        if (SaveDialog1->Execute())
         {
         int f; // дескриптор файла
          /* файл можно открыть в режиме fmCreate, тогда, если
          файл существует, он будет открыт для записи,
            если файла нет, то он будет создан */
          if ( FileExists(SaveDialog1->FileName) )
            f = FileOpen(SaveDialog1->FileName,fmOpenWrite);
          else
            f = FileCreate(SaveDialog1->FileName);
          if ( f != -1 )
           {
             // сохранить таблицу в файле
         for (int i = 1; i < StringGrid1->RowCount; i++)
           {
          AnsiString st = StringGrid1->Rows[i]->DelimitedText +"\r\n";
          FileWrite(f,st.c_str(), st.Length());
          }
        FileClose(f);
 
          }
        }
 }

StringGrid1->Options << goEditing << goTabs;

//----------прототип функции GetLine-----------------------------------
int GetLine(int f, AnsiString *st);
 
//-----------функция GetLine--------------------------------------------
// читает из файла строку символов
// от текущей позиции до символа "новая строка"
// значение функции - кол-во прочитанных символов
 
int GetLine(int f, AnsiString *st)
{
unsigned char buf[256]; // строка (буфер)
unsigned char *p = buf; // указатель на строку
int n; // кол-во прочитанных байт (значение ф-и FileRead)
int len = 0; // длина строки
 
        n = FileRead(f, p, 1 );
    while ( n != 0 )
     {
        if ( *p == '\r')
        {
            n = FileRead(f, p, 1); // прочитать '\n'
            break;
         }
          len++;
          p++;
          n = FileRead(f, p, 1);
     }
         *p = '\0';
 
       if ( len !=0)  st->printf("%s", buf) ;
 
       return len;
}
 
//--------------------Обработчик Сохранения в файл ---------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
int i;
int f=0; // дескриптор файла
AnsiString st=""; // сохраняемая строка
 
       if (SaveDialog1->Execute())
        {
 
          //удаление файла с таким же именем
          if ( FileExists(SaveDialog1->FileName) )  DeleteFile(SaveDialog1->FileName);
           //создание файла
          f = FileCreate(SaveDialog1->FileName);
 
          if ( f != -1 )
           {
             // сохранить таблицу в файле
           for ( i = 0; i < StringGrid1->RowCount; i++)
 
               {
              st = StringGrid1->Rows[i]->DelimitedText +"\r\n";
 
              FileWrite(f,st.c_str(), st.Length());
 
              }
            FileClose(f);
           }
        }
}
//---------------------------------------------------------------------------
//--------------------Обработчик Чтения из файла---------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
int f=0; // дескриптор файла
AnsiString st=""; // прочитанная строка
bool fl = true; // true - чтение первой строки
 
    if (OpenDialog1->Execute())
    {
 
    Edit1->Text=OpenDialog1->FileName;
//  for (int i=0; i<StringGrid1->ColCount; i++) StringGrid1->Cols[i]->Clear();   //Сброс таблицы
    for (int i=0; i<StringGrid1->RowCount+1; i++) StringGrid1->Rows[i]->Clear();   //Сброс таблицы
    StringGrid1->RowCount=0;
 
    if (( f = FileOpen(OpenDialog1->FileName,fmOpenRead)) == -1 )  return;
        // файл открыт
        // загрузить таблицу
        while ( GetLine(f, &st) != 0)
        {
                 // добавить строку в таблицу
           if ( fl )
           {
               StringGrid1->Rows[StringGrid1->Row]->DelimitedText = st;
               fl = false;
           }   else
            {
              StringGrid1->RowCount++;
              StringGrid1->Row = StringGrid1->RowCount-1;
              StringGrid1->Rows[StringGrid1->Row]->DelimitedText = st;
            }
 
        }
 
      FileClose(f);
    }
}
 
//---------------------------------------------------------------------------

#include <memory>
...
//Сохранение
void __fastcall TForm2::btn_SaveClick(TObject *Sender)
{
    if(!SaveDialog1->Execute()) return;
    std::auto_ptr<TStringList> L (new TStringList);
    for(int i = 0; i < StringGrid1->RowCount; i++)
       L->Add(StringGrid1->Rows[i]->CommaText);
    L->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
//Загрузка
void __fastcall TForm2::btn_LoadClick(TObject *Sender)
{
    if(!OpenDialog1->Execute()) return;
    std::auto_ptr<TStringList> L (new TStringList);
    L->LoadFromFile(OpenDialog1->FileName);
    StringGrid1->RowCount = L->Count;
    for(int i = 0; i < L->Count; i++)
        StringGrid1->Rows[i]->CommaText = L->Strings[i];
}
//---------------------------------------------------------------------------