#21 Запись данных -- работа с файлами в Паскаль, rewrite, append

(урок в процессе разработки)

После изучения способов чтения файла в Паскале, перейдём к вопросу записи в них данных.

Пример чтения и записи текстового файла:

Var
    t:text; // тип для открытия текстового файла
    s: string;
begin

  assign(t,'D:\tmp\my\input.txt');
  reset(t);
  readln(t,s);
  close(t);

  writeln('Iz faila poluchaem stroku:', s);




  //assign (t,'D:\tmp\my\output.txt');
  //rewrite(t);
  //writeln(t,s);
  //close(t);

  readln();


end.

Запись в файл с проверкой результата:

Var
    f1:text; // тип для открытия текстового файла
    filename, filename2, s: string;
    i:integer;
begin



  filename := 'C:\Users\TEMP.UIC.013\Documents\output.txt'; // путь к файлу

  assign (f1,filename); // ассоциируем файл с переменной
  rewrite(f1);  // открываем для записи

  for i:=1 to 10 do
     writeln(f1, 'Privet Mir! ');

  close(f1); // закрываем файл


  assign(f1, filename);
    {$I-} reset(f1);  {$I+}  // попытка открыть файл на чтение с подавлением ошибки
    if IOResult <> 0 then    // если есть ошибки
    begin
      writeLn('File ', filename, ' ne naiden!');
    end else  // если удалось открыть на чтение
    begin
     writeLn('File ', filename, ' suchectvuet. I vot ego soderzimoe:');
     while not eof(f1) do
       begin
         readln(f1, s);
         writeln(s);
       end;
    writeLn('========= konez faila =========');
    end;  

  readln();
end.