Объектно-ориентированное программирование на С++ - eDrive

FileClose (f);
}
}
70
Следующий пример посвящен изменению содержимого файла. Вначале
текст файла считывается в массив, который преобразуется в строку. В этой
строке отыскивается заданное слово и заменяется фразой «[Удалено]», а
файл заполняется пробелами. После этого измененная строка возвращается в
файл.
void Files3 () {
AnsiString word = MyForm–>Edit1–>Text,
file = MyForm–>Edit2–>Text,
bText ="";
try {
int bFile = FileOpen (file, fmOpenReadWrite);
int bLen = FileSeek (bFile, 0, 2);
char *b = new char [bLen];
FileSeek (bFile, 0, 0);
FileRead (bFile, b, bLen);
bText =AnsiString (b, bLen);
delete [] b;
int index = bText.AnsiPos (word.c_str());
if (!index) {
ShowMessage ("В файле нет такого слова");
FileClose (bFile); return;
}
bText.Delete (index, word.Length ());
bText.Insert ("[Удалено]", index);
FileSeek (bFile, 0, 0);
AnsiString c = AnsiString::StringOfChar (' ', bLen);
FileWrite (bFile, c.c_str (), bLen);
FileSeek (bFile, 0, 0);
FileWrite (bFile, bText.c_str (), bText.Length ());
FileClose (bFile);
} catch (...) { ShowMessage ("Ошибка файловой операции"); }
ShowMessage (bText);
}
Пример удаления фрагмента, заданного в Edit1, из файла, в котором содержится
указанная в Label1 фраза: