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

void Files2 () {
AnsiString from = MyForm–>Edit1–>Text, to = MyForm–>Edit2–>Text;
}
try {
int iFile = FileOpen (from, fmOpenRead);
int len = FileSeek (iFile, 0, 2);
FileSeek (iFile, 0, 0);
char *c;
c = new char [len + 1];
len = FileRead (iFile, c, len);
FileClose (iFile);
iFile = FileOpen (to, fmOpenWrite);
FileWrite (iFile, c, len);
ShowMessage (from + " –> " + to + '\n' + AnsiString (c, len));
delete [] c;
FileClose (iFile);
} catch (...) { ShowMessage ("Ошибка одной из файловых операций"); }
69
Аналогичный пример посвящен отображению содержания файла в
надписи Label1:
void _ _fastcall TForm1::LabelFromFileClick (TObject *Sender) {
int f = FileOpen ("tempFile.txt", fmOpenRead);
if (f != –1) {
int size = FileSeek (f, 0, 2);
char *s = new char[size+1];
FileSeek (f, 0, 0);
FileRead (f, s, size);
Label1–>Caption = AnsiString (s, size);
FileClose (f);
delete [] s;
}
}
Далее показано, как файл с текстом, указанным в Label1, дополняется
содержимым поля Edit1:
void _ _fastcall TForm1::InsertToFileClick (TObject *Sender) {
int f = FileOpen ("tempFile.txt", fmOpenWrite);
if (f != –1) {
AnsiString is = Label1–>Caption, what = Edit1–>Text;
is += what;
Label2–>Caption = is;
FileWrite (f, is.c_str (), is.Length ());