// Чтение данных из файла

ifstream lx ("a.text");

if (!lx)

{

Memo1->Lines->Add("Файл не удалось открыть ");

return;

}

lx >> num >> k >> s;

Memo1->Lines->Add(IntToStr(num));

Р

Memo1->Lines->Add(FloatToStr(k));

Memo1->Lines->Add(s);

И

lx.close();

Помимо этих операций поместить в поток можно еще с помощью функций

У

put и write. Возможности ввода/вывода можно существенно расширить,

используя манипуляторы потока.

7.1.4. Работа с файлами с помощью компонентов

Б

Работа с файлами осуществляется в помощью методов LoadFromFile и

SaveToFile. Через компоненты можно работать неГтолько с текстовыми файлами,

а

но и с файлами мультимедиа и изображениями.

7.2. Компоненты TOpenDialog и TSaveDialog

е

Компоненты TOpenDialog и TSaveDialog находятся на странице DIALOGS.

Все компоненты этой страницы являютсякневизуальными, т.е. не видны в момент

т

работы программы. Поэтому их можно разместить в любом удобном месте

случае, ес и оно не задано пользователем, – свойство DefaultExt. Если

и

необход молизменить заголовок диалогового окна, используется свойство Title.

Б

б

7.3. Порядок выполнения задания

Задан е:

написать программу, вводящую в файл или читающую из файла

Р

И

У

Г

Б

а

к

е

т

о

Рис. 7.1

означает, что будут видны все файлы с расширением dat, а формат *.* - что будут

видны все файлы (с любым именем и с любым расширением).

и

(расширение .txt).

л

7.3.2. Работа с программой

После запуска программы на выполнение появится диалоговое окно

б

программы. Кнопка “Ввести запись” видна не будет. Необходимо создать новый

файл записейи, нажав на кнопку “Создать”, или открыть ранее созданный, нажав на

Р

И

У

Г

к

Б

е

т

Риса. 7.2

Текст программы:

//

о

#include <vcl.h>

и

#pragma hdrstop

//---------------------------------------------------------------------------

л

#include "Lab7F.h"

б

#include <stdio.h>;

и

#pragma package(smart_init)

Б

FILE *Fs;

//

---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

{

: TForm(Owner)

}

//

---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

Р

{

Edit1->Clear();

И

Edit2->Clear();

Edit3->Clear();

У

Edit4->Clear();

RichEdit1->Clear();

Г

Button1->Hide();

Б

}

//

---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

а

{

OpenDialog1->Title="New File";

if (OpenDialog1->Execute())

char *FileNameS= OpenDialog1->FileName.cкstr();

т

if ((Fs=fopen(FileNameS,"wb"))==NULL) {

ShowMessage("File no created");е

return;

о

}

}

Button1->Show();

и

л

{

}

//

---------------------------------------------------------------------------

б

void __fastcall TForm1::Button1Click(TObject *Sender)

и

strcpy(Stud[nzap].FIO,Edit1->Text.c_str());

Б

fwrite(&Stud[nzap],sizeof(TStudent),1,Fs);

nzap++;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

OpenDialog1->Title="Open File";

if (OpenDialog1->Execute())

{

Р

char *FileNameS= OpenDialog1->FileName.c_str();

if ((Fs=fopen(FileNameS,"rb"))==NULL) {

И

ShowMessage("File is not opened");

return;

}

У

Button1->Show();

Г

RichEdit1->Clear();

Б

RichEdit1->Lines->Add(AnsiString(Stud[nzap].FIO)+" "

+IntToStr(Stud[nzap].otc[0])+" "

а

+IntToStr(Stud[nzap].otc[1])+"к"

т

+IntToStr(Stud[nzap].otc[2])+" ");

}

nzap++;

о

е

и

while(True);

Button1->Show();

}

л

}

б

//---------------------------------------------------------------------------

и

void fastcall TForm1::Button4Click(TObject *Sender)

Б

RichEdit1->Clear();

RichEdit1->Lines->Add(" Результат:");

for(int i=0;i<nzap;i++)

RichEdit1->Lines->Add(AnsiString(Stud[i].FIO)+" "

+IntToStr(Stud[i].otc[0])+" "

+IntToStr(Stud[i].otc[1])+" "

+IntToStr(Stud[i].otc[2])+" ");

}

//---------------------------------------------------------------------------

Р

void __fastcall TForm1::Button5Click(TObject *Sender)

И

{

SaveDialog1->Title="Save File";

У

if (SaveDialog1->Execute())

{

Г

AnsiString FileNameR = SaveDialog1->FileName;

Б

RichEdit1->Lines->SaveToFile(FileNameR);

}

}

а

{

//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

е

fclose(Fs);

к

}

о

7.4. Вып лнение индивидуального задания

По указанию преподава еля

выбрать вариант задания из темы 6.

и

Предусмотреть запись сх дныхтданных в файл и возможность чтения из него.

л

Результат вывести на экран в файл.

б

и

Б