=========

|*| | | | |

 =========

 =========

| | | | | |*

 =========

 ===========

| | | | | | |*

 ===========

type

  TStudentInfo=record

    Name: string[30];

    Kurs: string[20];

    Exams: array[1..5] of byte;

  end;

 

var F: file of TStudentInfo;

    st: TStudentInfo;

begin

.......

  Seek(F,FileSize(F)); { становимся в конец файла }

  Write(F,st); { записываем запись в файл }

.......

end.

 =========

| | |*| | |

 =========

 =========

| | | |*| |

 =========

type

  TStudentInfo=record

    Name: string[30];

    Kurs: string[20];

    Exams: array[1..5] of byte;

  end;

 

var

  f: file of TStudentInfo;

  st: TStudentInfo;

  who: string[30];

  found: boolean;

begin

     write('Кого ищем? ');

     readln(who);

     if who='' then exit;

 

     assign(f,'students.dat');

     {$I-}

     reset(F);

     {$I+}

     found:=false;

     if IOresult=0 then

     with st do

     while Not EOF(F) do

     begin

          read(F,st);

          if name=who then  { нашли такого/ую }

          begin

               write('Заменить на фамилию: ');

               readln(name);

               found:=true;

               seek(F,FilePos(F)-1); { вернуться на 1 позицию обратно, т.е. на позицию того, что надо заменять }

               write(f,st);

               break; { убрать это, если известно, что таких несколько }

          end;

     end;

     close(f);

     if Not Found

        then writeln(Who,' не найден. Ха-ха')

        else writeln(Who,' найден и заменен.');

     writeln(#13#10'Жми Enter');

     readln;

end.

type

  sof100=string[100]; {Это тип информации в файле - обязательно нужно объявить (см. пояснение)}

var

  f: File of sof100;

  s: sof100; {запись из файла будет здесь}

  fio: string; {Наше ФИО}

begin

  write('Введём наше ФИО: ');

  readln(fio);

  if length(fio)>100 then fio:=copy(fio,1,100); {Обрежем лишние символы}

  assign(f,'fio.dat');

  reset(f);

  while not eof(f) do {Этого мы ещё не прошли - цикл будет выполняться пока не окончится файл}

  begin

    read(f,s);

    if s='ФИО' then {Если текущая запись - слово ФИО}

    begin

      s:=fio; {Нужно преобразовать из строки в sof100, для этого присвоим s значение fio}

      seek(f,filepos(f)-1); {переместим позицию файла в позицию на один меньше текущей}

      write(f,s); {Перезапишем в файл наше ФИО}

    end;

  end;

  close(f);

end.

var

  f: file of Byte;

  size : Longint;

begin

  Assign(f, ParamStr(1)); {Имя файла узнаем из командной строки программы}

  Reset(f); {Откроем файл с размером записи - 1 байт}

  size := FileSize(f); {В переменной будет находиться текущий размер открытого файла}

  Writeln('Размер файла в байтах: ',size); {Выведем его}

  Writeln('Перейдём в середину файла...');

  Seek(f,size div 2); {Переходим}

  Writeln('Position is now ',FilePos(f)); {Выведем номер текущего положения в файле}

  Close(f); {Закроем файл}

end.

var

  f: text;

  s: string;

begin.

  assign(f,paramstr(1));

  reset(f);

  while not eof(f) do

  begin

    readln(f,s);

    writeln(s);

  end;

  close(f);

end.

var

  f: text;

  c: char;

begin

  assign(f,'text.txt');

  reset(f);

  while not seekeof(f) do

  begin

    read(f,c);

    write(c);

  end;

  close(f);

end;

var

  f:file; {Объявим дескриптор нетипизированного файла}

  b:array[1..100] of char;

  r:word;

begin

  assign(f,'123.dat');

  reset(f,3); {Установим размер записи равным 3}

  blockread(f,d,2);

  {сейчас мы прочли две первые записи, тоесть 3*2=6 байт}

  {Эти 6 байт занеслись в первые 6 ячеек массива d - "111222"}

  blockread(f,d[7],10,r);

  {Теперь мы попытались прочесть ещё 10 записей из файла}

  {Но в файле осталось только 2 полные записи, и ещё одна неполная}

  {Поэтому переменная r будет содержать число 2}

  {А в массив начиная с 7 ячейки будут записаны ещё 7 байт}

  {Обратите на это внимание. Именно ещё 7 а не 6, как можно было бы предположить}

  ...

type

  TStudentInfo=record

    name:string[30];

    kurs:string[20];

    ekz:array[1..5] of byte;

  end;

type

  TStudentInfo=record

    name:string[30];

    kurs:string[20];

    ekz:array[1..5] of byte;

  end;

var

  f:file;

  st:array[1..10] of TSudentInfo;

  res:word;

begin

  assign(f,'students.dat');

  {$I-} {Будем сами отслеживать ошибки}

 

  {Попробуем открыть файл}

  {Обратите внимание - здесь принципиально важное место. Мы открываем файл

   с размером записи, равным размеру записи TStudentInfo, что позволит читать

   нам за раз одну запись}

  reset(f,sizeof(TStudentInfo));

  {$I+}

  if ioresult<>0 then

  begin

    writeln('Файл с данными не найден. Запустите сначала первую программу');

    exit; {Прервём выполнение программы}

  end;

  {Теперь прочтём сразу 10 описаний студентов в массив st}

  blockread(f,st,10,res); {Читаем 10*размер_записи_о_студенте байт}

  {После выполнения blockread в переменной res находится количество удачно прочтённых записей}

  {Поскольку в файле может быть меньше 10 описаний, для нас это принципиальные данные}

  writeln('Из файла удалось прочесть информацию о ,'res,' студенте(ах)');

  close(f); {Эту команду мы ещё не рассматривали, но об этом я расскажу в конце}

  {Ну а теперь можно вывести информацию о res прочтённых студентах на экран}

end.

Writeln(f1,'Эта строка окажется внутри файла с дескриптором f1');

Это строка

12321

Это было число

А вот это будет три символа:

№%@

var

  f:text;

  s1,s2,s3:string;

  v1:longint;

  c1,c2,c3:char;

begin

  assign(f,<тут имя файла>);

  reset(f);

  readln(f,s1); {s1 <- "Это строка"}

  readln(f,v1); {v1 <- 12321}

  readln(f,s2); {s2 <- "Это было число"}

  readln(f,s3); {s3 <- "А вот это будет три символа:"}

  readln(f,c1,c2,c3); {c1 <- "№", c2 <- "%", c3 <- "@"}

  ...{остальные действия}

end.

1234 Я -3.14

var

  v:word;

  c:char;

  r:real;

...

  read(f1,v,c,r);

...

var

  v1:byte;

  v2:longint;

  v3:real;

  c:char;

begin

  ...

  read(f,v1); или read(f,v2); или read(f,v3); {Даст глюк с концом файла}

  read(f,c); или read(f,s1); read(f,s2); {Глюка не будет. Символ #26 займет свое место}

type

  TStudentInfo=record

    name:string[30];

    kurs:string[20];

    ekz:array[1..5] of byte;

  end;

var

  f:file of TStudentInfo;

  st:TStudentInfo;

  p:byte;

begin

  assign(f,'students.dat');

  {$I-} {Будем сами отслеживать ошибки}

  reset(f); {Откроем файл. Позиция на данный момент в самом начале}

  {$I+}

  if ioresult<>0 then rewrite(f); {Если ошибка, занчит файла нет, и значит откоем его подругому}

  seek(f,filesize(f)); {Если мы открыли файл первым способом, то значит он уже был и значит там

                        есть записи. Следовательно  переместимся в его конец чтобы дописывать студентов}

  with st

  do repeat

    write('Введите имя студента (пустую строку для выхода): ');

    readln(name);

    if name='' then break;

    write('Введите курс:');

    readln(kurs);

    for p:=low(ekz) to high(ekz) do

    begin

      write('Введите оценку по экзамену №',p,': ');

      readln(ekz[p]);

    end;

    write(f,st); {Вот эта строка и записывает информацию о студенте в файл}

  until false;

  close(f); {Эту команду мы ещё не рассматривали, но об этом я расскажу в конце}

end.

type

  TStudentInfo=record

    name:string[30];

    kurs:string[20];

    ekz:array[1..5] of byte;

  end;

var

  f:file of TStudentInfo;

  st:TStudentInfo;

  p:byte;

begin

  assign(f,'students.dat');

  {$I-} {Будем сами отслеживать ошибки}

  reset(f); {Попробуем открыть файл}

  {$I+}

  if ioresult<>0 then

  begin

    writeln('Файл с данными не найден. Запустите сначала первую программу');

    exit; {Прервём выполнение программы}

  end;

  with st do

  repeat

    read(f,st); {Вот эта строка читает информацию о студенте из файла в st}

    writeln('Имя студента: ',name);

    write('Курс:',kurs);

    for p:=low(ekz) to high(ekz) do

      write('Оценка по экзамену №',p,': ',ekz[p]);

  until eof(f); {Эта команда ещё не рассмотрена, она будет возвращать неправду пока файл не кончится}

  close(f); {Эту команду мы ещё не рассматривали, но об этом я расскажу в конце}

end.

type

    OnePhoneData=record         { Запись-описание абонента }

        Number:longint;         { Его телефон }

        Name:string[100];       { Его ФИО }

        Address:string[200];    { Его адрес }

    end;

        

var

    TextFile:text;                      { Файл с текстовой информацией }

    PhoneFile: file of OnePhoneData;    { Файл с записями типа OnePhoneData }

    SomeData: file;                     { Файл с неопределённой информацией }

    Values: file of longint;            { Файл, состоящий из чисел (в их машинном представлении) }

Assign(<имя_переменной_дескриптора>, <строка_имя_файла>);

const

    filename1='myfile.txt';

type

    Rec = record

        tel: longint;

        name: string;

        addr: string;

    end;

 

var

    f:file of byte;

    tel:file of Rec;

    dat:text;

    s:string;

begin

    s := 'd:\telbase';

    assign(f,'ByteData.dat');   { Теперь переменная f - это файл bytedata.dat, и состоит из байт }

    assign(tel,s+'\Phones.db'); { tel это файл с телефонами и обонентами. Находится в d:\teldata\phones.dat }

    assign(dat,filename1);      { dat - это текстовый файл myfile1.txt }

    ...                     {Тут идёт работа с файлами}

end.

Rewrite(<название_дескриптора_файла>[, <размер_записи>]);

Reset(<название_дескриптора_файла>[, <размер_записи>]);

Truncate(<название_дескриптора_файла>);

var

    f:text;

    name:string;

begin

    write('Введите имя файла, который мы попытаемся открыть: ');

    readln(name);

    

    { В данный момент если файла нет, то ошибки не произойдет. Ведь файл еще не пытались открыть }

    assign(f, myname);

    

    {$I-} { - отключим стандартную проверку ошибок ввода/вывода}

        reset(f);   {попробуем открыть файл}

    {$I+}

    if ioresult = 0 then

        writeln('Все в порядке. Файл нашелся и открылся нормально')

    else writeln('Файл с именем ',myname,' не найден. Попробуйте другое имя');

        

    ... {ну тут остальные действия. Какие - читайте далее}

end;