Программирование на С++ - eDrive

19
for (int i=0; iColCount; ++i)
f += StringGrid1–>Cells [i][j] + '\n';
if (!SaveDialog1–>Execute ()) return;
int file = FileCreate (SaveDialog1–>FileName);
if (FileWrite (file, f.c_str (), f.Length ()) == –1) ShowMessage ("Не записать");
FileClose (file);
5. Чтение файла в таблицу. Читать таблицу удобно с помощью TStringList:
TStringList *f = new TStringList;
int k = 0;
if (!OpenDialog1–>Execute ()) return;
f–>LoadFromFile (OpenDialog1–>FileName);
for (int j=0; jRowCount; ++j)
for (int i=0; iColCount; ++i)
if (k < f–>Count) StringGrid1–>Cells [i][j] = f–>Strings [k++];
delete f;
6. Добавление строки в файл. Чтобы добавить в файл активную строку текущей
таблицы, можно воспользоваться функциями файловых операций
FileOpen, FileWrite, FileSeek, FileClose:
AnsiString f = "";
for (int i=0; iColCount; ++i)
f += StringGrid1–>Cells [i][StringGrid1–>Row] + '\n';
if (!SaveDialog1–>Execute ()) return;
int file = FileOpen (SaveDialog1–>FileName, fmOpenWrite);
if (file == –1) return;
if (FileSeek (file,0,2) == –1 || FileWrite (file, f.c_str (), f.Length ()) == –1)
ShowMessage("Неудача");
FileClose (file);
7. Запись заголовка таблицы в файл. Для проведения этой операции полезно
воспользоваться способностью компонента TStringList формировать многострочные
текстовые файлы в формате «имя=значение», где свойством
Values задается произвольное имя параметра, которому присваивается
значение, например:
TStringList *sl = new TStringList;
sl–>Values ["Заголовок 0"] = StringGrid1–>Cells [0][0];
sl–>Values ["Заголовок 1"] = StringGrid1–>Cells [1][0];
sl–>Values ["Заголовок 2"] = StringGrid1–>Cells [2][0];
if (!SaveDialog1–>Execute ()) return;
AnsiString fn = SaveDialog1–>FileName;