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

[kramolnic]

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

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

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

[Bokul]

в текстовый - нельзя.

var f:text;
    s:string;
begin
  assign(f,'tp.txt');
  rewrite(f);
  writeln(f,'1');
  close(f);
  append(f);
  writeln(f,'2');
  close(f);
  reset(f);
  while not eof(f) do
       begin
            readln(f,s);
            writeln(s);
       end;
       close(f); 
  readln;
end.