[Falcon01]

Как открыть файл. Если открывать с помощью reset тогда файл будет открываться только для чтения. Если открывать с помощью rewrite тогда файл будет открываться для записи но при открытии все содержимое файла будет удалено. Скажите пожалуйста с помощью какой команды можно открыть файл только для записи не отчищая его ? Append не срабатывает. Заранее спасибо

[Страдалецъ]

С чего вы решили, что при открытии с помощью Reset файл будет открываться только для чтения? Вот вам пример который дописывает в конец:

Код:

program Project26;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Type
  TRec = record
   S: String[20];
   I: Integer;
  end;
Var
  F: File of TRec;
  R: TRec;
begin
 AssignFile(f, 'c:\test.txt');
 {$I-} Reset(f); {$I+}
 if IOResult <> 0
 then Rewrite(f)
 else Seek(f, FileSize(F));
 R.S := 'Hello';
 R.I := FileSize(F)+1;
 Write(f, R);
 CloseFile(f);
end.

[Страдалецъ]

И ненадо плодить столько тем.