Лабораторная работа 13. Работа с внешним файлом.

Задание 1. Вывод в файл.

Создайте форму с кнопками Создать, которая открывает в файл в режиме создания нового файла или замены существующего, и Добавить, которая открывает файл в режиме добавления к уже существующим

данным.

Поместите на форму компонент Edit1 и Edit2 , в которые будет вводиться текст.

// создание нового или замещение существующего файла

procedure TForm1.Button1Click(Sender: TObject);

var

f:TextFile;

i:string;

begin

AssignFile(f,' указать путь к текстовому файлу Пример.txt ');

Rewrite(f);

I:=edit1.text;

writeln(f,i);

CloseFile(f);

end;

// добавление в существующий файл

procedure TForm1.Button2Click(Sender: TObject);

var

f:TextFile;

i:string;

begin

AssignFile(f,' указать путь к текстовому файлу Пример.txt');

Append(f);

I:=edit2.text;

writeln(f,i);

CloseFile(f);

end;

end.

Задание 2. Чтение из файла.

Поместите на форму кнопку Чтение из файла, в обработчик события OnClick которой поместите процедуру чтения из файла Пример.txt, находящегося в вашей папке.

Вывод текста должен осуществляться в компонент Memo1, который необходимо поместить на форму.

Программу необходимо дополнить процедурой проверки конца файла, воспользовавшись функцией EOF.

Добавить label1 для вывода сообщения об ошибке открытия файла.

procedure TForm1.Button3Click(Sender: TObject);

var

fname: string [20];

f:TextFile;

incom:string;

begin

fname:=' указать путь к текстовому файлу Пример.txt';

AssignFile (f, fname);

{$I-}

Reset (f);

{$I+}

if IOResult = 0

then

begin

while NOT EOF (f) do {пока не конец файла}

begin

readln(f,incom);

Memo1.Lines.Add(incom)

end;

CloseFile (f);

End

Else

Label1.Caption:='ошибка открытия файла ' + fname;

End;

Задание3.

Создайте форму для чтения из файла чисел, накопления их суммы в переменной и вывода итогового значения в метке.