изменение файла Опции

[noor]

Подскажите как можно открыть созданный файл (Пример:Stud*.*kur) для внесения в него изменений, но не просто для дозаписи , а открыть как то в WinCRT и чтоб можна было свободно менять уже существующие записи...

[Ozzя]

Дозапись файла записей

открыть как то в WinCRT

Эту часть поясни.

Сообщение отредактировано: Ozzя - 5.04.2006 12:10

[klem4]

А в чем проблема то ?

uses crt;
var
   f : file of integer;
   n : integer;

begin
  clrscr;
  assign(f, 'c:\f.int');
  rewrite(f); // создаем
  write(f, 13); // пишем
  close(f); // ЗАКРЫВАЕМ
  reset(f); // открываем для чтения/дозаписи (можно и другой программой)
  seek(f, filesize(f)); // ищем конец файла
  write(f, 100); // пишем
  close(f); // закрываем
  reset(f); // открываем для чтения
  while (not(eof(f))) do begin
    read(f, n); // читаем
    writeln(n); // выводим
  end;
  close(f);
  readln;
end.