Проще говоря, текстовые файлы содержат удобочитаемые ASCII персонажи. Мы можем рассматривать работу с текстовым файлом в Delphi как аналог воспроизведения или записи информации на видеомагнитофон.
Хотя можно вносить изменения в текстовый файл, перемещаться при обработке информации или добавлять некоторые данные в файл, кроме в конце рекомендуется использовать текстовый файл только тогда, когда мы знаем, что мы работаем с обычным текстом, и такие операции не выполняются. необходимо.
Считается, что текстовые файлы представляют собой последовательность символов, отформатированных в строки, где каждая строка заканчивается маркером конца строки ( Комбинация CR / LF).
TextFile и метод назначения
Чтобы начать работу с текстовыми файлами, вам нужно связать файл на диске с файловой переменной в вашем коде - объявите переменная типа TextFile и используйте процедуру AssignFile, чтобы связать файл на диске с файлом переменная.
Чтение информации из текстового файла
Если мы хотим прочитать содержимое файла в список строк, достаточно одной строки кода.
Чтобы прочитать информацию из файла построчно, мы должны открыть файл для вход используя Сброс настроек процедура. После сброса файла мы можем использовать ReadLn чтобы прочитать информацию из файла (читает одну строку текста из файла, затем перемещается на следующую строку):
После добавления одной строки текста из файла в компонент заметки SomeTxtFile необходимо закрыть. Это сделано близко ключевое слово.
Мы также можем использовать процедуру чтения для чтения информации из файла. Read работает так же, как ReadLn, за исключением того, что он не перемещает указатель на следующую строку.
EOF - конец файла
Используйте функцию EOF, чтобы убедиться, что вы не пытаетесь прочитать за пределами файла. Допустим, мы хотим отобразить содержимое файла в окнах сообщений - по одной строке за раз, пока мы не доберемся до конца файла:
Примечание: лучше использовать Пока цикл чем цикл До, чтобы принять во внимание (маловероятную) вероятность того, что файл существует, но не содержит никаких данных.
Запись текста в файл
WriteLn это, вероятно, самый распространенный способ отправки отдельных частей информации в файл. Следующий код будет читать текст из компонента Memo1 (строка за строкой) и отправлять его во вновь созданный текстовый файл.
В зависимости от состояния файла, предоставленного процедуре перезаписи, он создает новый файл (открывает файл для вывода) с именем, присвоенным SomeTextFile. Если файл с таким именем уже существует, он удаляется, и на его месте создается новый пустой файл. Если SomeTextFile уже открыт, он сначала закрывается, а затем создается заново. Текущая позиция файла установлена в начале пустого файла.
Примечание: Memo1.Lines. SaveToFile ('c: \ MyTextFile.txt') сделает то же самое.
Иногда нам просто нужно добавить некоторые текстовые данные в конец существующего файла. Если это так, мы позвоним Append чтобы убедиться, что файл открыт с доступом только для записи, указатель файла расположен в конце файла. Что-то вроде:
Будьте в курсе исключений
В общем, вы всегда должны использовать Обработка исключений при работе с файлами. Ввод / вывод полон сюрпризов. Всегда используйте CloseFile в блоке finally, чтобы избежать возможности повреждения FAT пользователя. Все предыдущие примеры должны быть переписаны следующим образом:
Работа со структурированными файлами
Delphi имеет возможность обрабатывать как файлы ASCII, так и файлы, содержащие двоичные данные. Вот методы работы с типизированные и нетипизированные (двоичные) файлы.