Занятие 7. Файловые операции.

Сегодня мы научились:

• Записывать в файл
• Читать из файла

Программа №1. Запись в файл

var

   F: TEXT;

   i: integer;

Begin

     cls;

     Assign(F, 'file.txt');

     Rewrite(F);                  // Открытие файла для записи

     writeln('Ivan Ivanov');      //Вывод на экран

     writeln(F,'Ivan Ivanov');    //Вывод в файл

     writeln('33');

     writeln(F,'33');

     for i:=1 to 10 do

     Begin

         write(i, ' ');

         write(F, i, ' ');

     End;

     Close(F);

End.

Программа №2. Чтение из файла

Обратите внимание, что мы читаем структуру, записанную раннее в Программе №1

var

   F: TEXT;

   Name1: string[50];

   Age, i: byte;      //0-255

   arr: array [1..10] of integer;

 BEGIN

    if NOT FileExists('file.txt') THEN

    Begin

       writeln('Файл не найден!!!');

       Exit;

    End;

    Assign(F, 'file.txt');

    Reset(F);

    Read(F, Name1);

    Read(F, Age);

    Writeln('Имя:', Name1, ' Возраст:', Age);

    for i:=1 to 10 do

    begin

         read(F, arr[i]);

    end;

    for i:=1 to 10 do

        writeln(arr[i]);

    Close(F);

END.