program readfile; {название программы} var {раздел описания переменных} ft:text; {описываем файловую переменню текстового типа (логический файл)} s:string; {описываем переменную строкового типа} begin {начало} Assign(ft,'c:\test.ini'); {процедура связи логического файла ft с физическим файлом } Reset(ft); {процедура открытия логического файла ft для последующего чтения} while not(eof(ft)) do {цикл с предусловием. выполняется пока не достигнут конец файла} begin {начало цикла} Readln(ft,s); {чтение данный из файла и занесение в переменную s} writeln(s); {вывод переменой s на экран} end; {конец цикла} close(ft); {закрывает логический файл ft} end. {конец}
Замечание.Файл должен существовать, иначе программа выдаст ошибку.
Пример 2. Запись данных в файл.
program writefile; {название программы} var {раздел описания переменных} fr:text; {описываем файловую переменню текстового типа (логический файл)} begin {начало} Assign(fr,'c:\test.out'); {процедура связи логического файла fr с физическим файлом } Rewrite(fr); {процедура открытия логического файла fr для последующей записи} writeln(fr,'test'); {запись строки test в файл} close(fr); {закрывает логический файл fr} end. {конец}
