А ты пиши мне письма мелким почерком, поскольку места мало в рюкзаке.

Фильменная песня

Романтическое создание писем при дрожащем пламени свечи, увы, безвоз­вратно ушло в прошлое. И хотя некоторые креативные приверженцы эпи­столярного стиля упорствуют в невежестве и доверяют свои невнятные мысли бумаге, последняя сейчас в основном используется по своему пря­мому назначению, то есть для складывания фигурок оригами и издания плакатов, призывающих беречь зелёного друга (коим для нас является лес, а не крокодил Гена и не пьяный товарищ).

Все наши винчестеры, флешки, диски CD- и DVD-ROM доверху забиты фай­лами. Каждый из них имеет имя и - почти всегда - расширение, которое следует за последней точкой в имени файла и обычно указывает на назна­чение файла и формат данных, хранящихся в нём.

Систематика файлов насчитывает многие сотни типов файлов: исполняе­мых exe, видео avi, mpg, звуковых ogg, wav, музыкальных mp3, mid, но, с точки зрения Delphi, разновидностей файлов всего 3: текстовые (они имеют тип TextFile), типизированные и нетипизированные.

На этом занятии мы рассмотрим текстовые файлы, которые состоят из строк, подобных тем, что мы изучили на прошлом уроке. Как в текстовых, так и в любых других файлах размещаются данные, которые можно сколь угодно долго хранить на диске даже после окончания работы с приложе­нием, в котором эти данные были созданы, а потом снова загрузить в него.

Наберите в самом простом текстовом редакторе любой сумбурный текст, который только придёт вам в голову, - его глубокий смысл только отвле­чёт нас от формы

Очень хорош для разбора текстовых файлов стандартный Блокнот, кото­рый не добавляет в файл никакой «отсебятины», в отличие от «продвину­тых» редакторов типа MS Word.

Не забудьте после набора текста нажать клавишу Return, чтобы завершить строку. Сохраните текст в файле под каким-нибудь именем - вот и готов настоящий текстовый файл! Обратите внимание, что к его названию авто­матически добавлено расширение .txt. Теперь вы можете открыть файл в любом редакторе и увидеть вашу строку в первозданном виде (естествен­но, все ваши труды по форматированию текста пойдут прахом, потому что никакая информация о ваших шрифтовых предпочтениях не сохраняет­ся!).

Когда мы изучали строки, то узнали, что разные типы строк по-разному хранятся в памяти компьютера. И вас, наверное, удивит тот факт, что на диске любые строки сохраняются одинаково, но не совсем так, как в ячей­ках памяти.

Если мы загрузим текст в редактирующую программу, то он будет разбит на строки так, как мы и его набирали. Но как редактор определяет конец строки? Может быть, вместе с каждой строкой записывается и её длина или после строки записывается нулевой символ? Второй вариант ближе к истине, но всё равно ошибочен.

В обычном текстовом редакторе мы никогда не увидим, что же там, в кон­це строки, поэтому воспользуемся таким текстовым редактором, который позволяет просматривать текст в 16-ричном виде, например, подойдёт WinHex

И вот мы видим: все символы строки записаны без всяких изменений, но в конце строки находятся сразу 2 символа - $0D и $0A (или то же самое в бо­лее привычном десятичном виде - #13 и #10). Они ещё в стародавние вре­мена обозначали возврат каретки принтера и переход на новую строку. Этот анахронизм сохранился до сих пор в текстовых файлах, которые ни­чего и не знают о принтерах.

Нам осталось узнать, как же записываются строки таким причудливым образом, поэтому рассмотрим основные операции с текстовыми файла­ми - сохранение их на диске и загрузку в приложение. Они не доставят вам хлопот, если вы будете точно следовать «рецепту».

 Независимо от того, сохраняем мы файл или загружаем его, первым де­лом нужно объявить файловую переменную типа TextFile:

var F: TextFile;

Её принято обозначать буквой F (от слова File, файл), но это необязатель­но. Именно эта переменная и будет псевдонимом реального файла.

 Затем нужно связать файловую переменную с именем файла, вос­пользовавшись процедурой

procedure AssignFile(var F: file; FileName: string);

Её легче понять на конкретном примере.

Вот так можно связать нашу файловую переменную с файлом «osh_frc_v.txt» (так как путь к файлу не указан, то файл должен находиться в той же папке, что и само приложение!).

AssignFile(F, 'osh_frc_v.txt');

или

 
var s: string;
s:= 'osh_frc_v.txt'; // строка s содержит имя файла AssignFile(F, s);

 Теперь можно открыть файл для чтения или записи.

Для считывания данных указанный файл должен существовать на диске. Чтобы открыть его, пользуемся процедурой

procedure Reset(var F: file); (в нашем примере - Reset(F); ) ,и можно загружать данные. Они будут считываться, начиная с первой строки.

Writeln(F, ’А ты пиши мне письма мелким почерком!’);

var s: string;
s:= ’А ты пиши мне письма мелким почерком!’;
Writeln(F, s);

var s1,s2,s3,s4,s5,s6,s7: string; s1:= ’А ’;
s2:= ’ты ’; s 3:= ’пиши ’; 
s4:= ’мне ’; s5:= ’письма ’; s 6:= ’мелким ’; s7:= ’почерком!’;
 
Writeln(F, s1,s2,s3,s4,s5,s6,s7);

Writeln(F, ’А ’, ’ты ’, ’пиши ’, ’мне ’, ’письма ’, ’мелким ’, ’почерком!’);

Writeln(F, ’А ’ + ’ты ’ + ’пиши ’ + ’мне ’ + ’письма ’ + ’мелким ’+ ’почерком!’);

Writeln(F, si + ’ты ’ + s3 + ’мне ’ + s5 + ’мелким ’ + s7);

Writeln (F, si + ’ты ’   + s3 + ’мне ’  + s5 + ’мелким ’ + s7, ’    ’,123, ’    ’,   321, ’    ’,   123 < 321);

procedure Read(var F: file [; V1;   ...; Vn]);

var
s: String;
Readln(F, S);

var
s : String; n,m:integer;
Readln(F, n, m, s);