#21 Запись данных -- работа с файлами в Паскаль, rewrite, append
Primary tabs
(урок в процессе разработки)
После изучения способов чтения файла в Паскале, перейдём к вопросу записи в них данных.
Пример чтения и записи текстового файла:
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.
- Log in to post comments
- 4935 reads