Form1 :: Button3Click (TObject * Sender)
{(SaveDialog1-> Execute ())
{out (ChangeFileExt (SaveDialog1-> FileName, ". txt"). c_str ()); (int i = 0; i RowCount; i + +)
{(int j = 0; j ColCount; j + +)
{. width (20); < Cells [j] [i]. c_str ();
} <
}. close ();
}
}
{-> Close ();
}
// ---------------------------------------- -----------------------------------
