Работа с типизованными файлами, как сделать дозапись файла и вставку записей? Опции

[kramolnic]

В FAQ не нашел, чем открывать файл для добавления записей в конец файла (если делать Rewrite, то файл, судя по описанию, уничтожается... Если Reset, то открывается только на чтение...)

Там же не нашел, как можно добавить запись не в конец файла, а на любое место внутри файла... На ум приходит только сохранить все записи после нужного места в другой файл (или массив), затем урезать исходный файл до этого места, добавить запись и дописать в конец все сохраненные записи... но это ж долго, если файл (очень) большой!

Кстати, было бы не плохо, если ответы на эти вопросы будут добавлены в FAQ...

[volvo]

Уточни, что ты имеешь в виду под "атрибутами"... Имя - легко получается...

Для НЕтекстовых файлов:

uses dos;
var f: file;

begin
  assign(f, '01.txt'); reset(f, 1);

  writeln('name = ', filerec(f).name); { <--- FileRec }

  close(f);
end.

Для текстовых:

uses dos;
var f: text;

begin
  assign(f, '01.txt'); reset(f);

  writeln('name = ', textrec(f).name); { <--- TextRec }

  close(f);
end.

[kramolnic]

Уточни, что ты имеешь в виду под "атрибутами"...

Ну, вообще говоря, мне надо было только имя узнать, а про аттрибуты я просто попутно спросил. А так, архивный/только чтение/скрытый и дату создания/изменения. Можно еще полный путь к файлу. Короче, вообще все, что можно о нем узнать...