10. Работа с файлами. Типизированные и текстовые файлы.

Удаление и переименование файла. (Турбо Паскаль).

Для идентификации файлов в паскале используют файловые переменные. Файловая переменная не может быть задана константой. В зависимости от способа представления информации различают три типа файлов в паскале, соответственно различаются и способы описания файловых переменных

Файловая переменная типизированного файла описывается как:    Туре <идентификатор файловой переменной> = file оf <тип компонента>;где<тип компонента>- любой тип данных, кроме файлового. Типизированные файлы в паскале используют, когда обрабатывают хранящуюся в файле последовательность компонентов одинаковой длины (чисел, записей и т.п.). Файловая переменная текстового файла описывается как:   Туре <идентификатор файловой переменной> = text;Текстовые файлы в паскале используют для работы с текстами, представленными в виде строк переменной длины. Файловая переменная нетипизированного файла описывается как:   Туре <идентификатор файловой переменной> = file;Нетипизированные файлы в паскале применяют для организации скоростного обмена между внешней и оперативной памятью физическими записями указанной длины без преобразования и обработки. Как и любая переменная языка Паскаль, файловая переменная может быть описана в инструкции объявления переменных. Например:    Var F1: file of real;    F2:file:    F3: text;

Запись в файл:

reset(f); for i := 1 to n do begin   for j := 1 to n do     write(f, x[i,j]:7:2);   writeln(f); end; close(f);

Чтение из файла:

reset(f); for i := 1 to n do begin   for j := 1 to n do     read(f, x[i,j]);   readln(f);   end; close(f);

Добавление информации в файл

procedure AddElem(var spis1:List;znach1:TInf);

var

  tmp:List;

begin

  if spis1=nil then {Проверяем не пуст ли список, если пуст, то }

  begin

    GetMem(spis1,sizeof(TList));  {создаём его первый элемент}

    tmp:=spis1;

  end

  else {в случае если список не пуст}

  begin

    tmp:=spis1;

    while tmp^.next<>nil do

      tmp:=tmp^.next; {ставим tmp на последний элемент списка}

    GetMem(tmp^.next,sizeof(TList)); {создаём следующий элемент}

    tmp:=tmp^.next;   {переносим tmp на новый элемент}

  end;

  tmp^.next:=nil; {зануляем указатель}

  tmp^.data:=znach1; {заносим значение}

end;

Erase(file) – удаление файла. Предварительно файл должен быть закрыт.

Rename(file, file1) – переименование файла