Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
If OpenDlg.Execute then
|
|
AssignFiie(F, OpenDlg.FileName)
else Exit;
Reset(F);
While Not EOF(F) do
Begin
Readln(F, S);
Memo.Lines.Add(S);
end;
CloseFile(F);
end;
Если в диалоге открытия файла OpenDlg был выбран файл, то его имя связывается с файловой переменной F при помощи процедуры AssignFile. В качестве имени файла рекомендуется всегда передавать полное имя файла (включая его маршрут). Как раз в таком виде возвращают результат выбора файла диалоги работы с файлами TOpenDialog, TOpenPictureDiaiog. Затем при помощи процедуры Reset этот файл открывается для чтения и записи.
В цикле выполняется чтение из файла текстовых строк и запись их в компонент TMemo. Процедура Readin осуществляет чтение текущей строки файла и переходит на следующую строку. Цикл выполняется, пока функция EOF не сообщит о достижении конца файла.
После завершения чтения файл закрывается.
Такой же исходный код можно использовать и для записи данных в файл. Необходимо только заменить процедуру чтения на процедуру записи.
Теперь остановимся подробнее на назначении используемых для файлового ввода/вывода функций.
Открытие файла может осуществляться тремя процедурами — в зависимости от типа его дальнейшего использования.
| procedure Reset(var F: File [; RecSize: Word ]); | открывает существующий файл для чтения и записи, текущая позиция устанавливается на первой строке файла. |
| procedure Append(var F: Text); | открывает файл для записи информации после его последней строки, текущая позиция устанавливается на конец файла. |
| procedure Rewrite(var F: File [; RecSize: Word ]); | создает новый файл и открывает его, текущая позиция устанавливается в начало файла. Если файл с таким именем уже существует, то он перезаписывается. Переменная RecSize используется только при работе с нетипизированными файлами и определяет размер одной записи для операции передачи данных. Если этот параметр опущен, то по умолчанию RecSize равно 128 байт. |
Чтение данных из типизированных и текстовых файлов выполняют процедуры Read и Readln. Для записи используются процедуры в файл write и writeln.
| procedure Read([var F: Text; ] V1 [, V2,..., Vn]); procedure Read(F, V1 [, V2,..., Vn]); | При одном вызове процедуры можно читать данные в произвольное число переменных. Естественно, что тип переменных должен совпадать с типом файла. При чтении в очередную переменную читается ровно столько байтов из файла, сколько занимает тип данных. В следующую переменную читается столько же байтов, расположенных следом. После выполнения процедуры текущая позиция устанавливается на первом непрочитанном байте. Аналогично работают несколько процедур Read для одной переменной, выполненных подряд. |
| procedure Readln([ var F: Text; ] VI [, V2,..., Vn ]); | считывает одну строку текстового файла и устанавливает текущую позицию на следующей строке. Если использовать процедуру без переменных v1..vn, то она просто передвигает текущую позицию на очередную строку файла. |
| procedure Write([var F: Text; ] PI [, P2,..., Pn]); procedure Writeln([ var F: Text; ] PI [, P2,..., Pn ]); | Параметры P1, P2,..., Pn могут быть одним из целых или вещественных типов, одним из строковых типов или логическим типом. Но у них есть возможность дополнительного форматирования при выводе. |
Для контроля за текущей позицией в файле применяются две основные функции. Функция EOF(F) возвращает значение True, если достигнут конец файла. Функция EOLN(F) аналогично сигнализирует о достижении конца строки. Естественно, в качестве параметра в функции необходимо передавать файловую переменную.
Процедура procedure Seek(var F; N: Longint); обеспечивает смещение текущей позиции на N элементов. Размер одного элемента в байтах зависит от типа данных файла (от типизированной переменной).
Рассмотрим теперь режим блочного ввода/вывода данных между файлом и областью адресного пространства (буфером). Этот режим отличается значительной скоростью передачи данных, причем скорость пропорциональна размеру одного передаваемого блока — чем больше блок, тем больше скорость.
Для реализации этого режима необходимо использовать только нетипизированные файловые переменные. Размер блока определяется в процедуре открытия файла (Reset, Rewrite). Непосредственно для выполнения операций используются процедуры BlockRead и BlockWrite.
Процедура
procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]); выполняет запись блока из файла в буфер. Параметр F ссылается на нетипизированную файловую переменную, связанную с нужным файлом.
Параметр Buf определяет любую переменную (число, строку, массив, структуру), в которую читаются байты из файла. Параметр Count содержит число считываемых блоков. Наконец, необязательный параметр AmtTransferred возвращает число реально считанных блоков.
При использовании блочного чтения или записи размер блока необходимо выбирать таким образом, чтобы он был кратен размеру одного значения того типа, который хранится в файле. Например, если в файле хранятся значения типа Double (8 байт), то размер блока может быть равен 8, 16, 24, 32 и т. д. Фрагмент исходного кода блочного чтения при этом выглядит следующим образом:
procedure TForm2.Button1Click(Sender: TObject);
var F: File;
DoubleArray: array [0..255] of Double;
Transfered: Integer;
Begin
if OpenDlg.Execute then AssignFile(F, OpenDlg.FileName) else Exit;
Reset(F, 64);
BlockRead(F, DoubleArray, 32, Transferee!);
CloseFile(F);
ShowMessage('Ñ ÷ è ò à í î '+IntToStr(Transfered)+' á ë î ê î â ');
end;
end;
Как видно из примера, размер блока установлен в процедуре Reset и кратен размеру элемента массива DoubleArray, в который считываются данные. В переменной Transfered возвращается число считанных блоков. Если размер файла меньше заданного в процедуре BlockRead числа блоков, ошибка не возникает, а в переменной Transfered передается число реально считанных блоков.
Процедура
procedure BlockWrite(var f: File; var Buf; Count: Integer [; var AmtTransferred: Integer]); используется аналогично.
Таблица 1. Процедуры и функции для работы с файлом
| Объявление | Описание |
| ChangeFileExt | Функция позволяет изменить расширение файла. При этом сам файл не переименовывается. |
| ChDir | Процедура изменяет текущий каталог на другой, путь к которому задается параметром |
| CloseFile | Вызов процедуры разрывает связь между файловой переменной и файлом на диске. |
| DeleteFile | Функция производит удаление файла с диска и возвращает значение False, если файл удалить не удалось или файл не существует |
| ExtractFileExt | Функция возвращает расширение файла |
| ExtractFileName | Извлекает имя и расширение файла, содержащегося в параметре FileName |
| ExtractFilePath | Функция возвращает полный путь к файлу |
| Erase | Удаляет файл, связанный с файловой переменной |
| FileSearch | Данная процедура производит поиск в каталогах DirList файла Name. Если в процессе выполнения FileSearch обнаруживается искомое имя файла, то функция возвращает в строке типа string полный путь к найденному файлу. Если файл не найден, то возвращается пустая строка |
| FileSetAttr | Присваивает файлу с именем FileName атрибуты Attr. Функция возвращает 0, если присвоение атрибутов прошло успешно. В противном случае возвращается код ошибки |
| FilePos | Возвращает текущую позицию файла. Функция используется для нетекстовых файлов. Перед вызовом FilePos файл должен быть открыт |
| MkDir | Процедура создает новый каталог |
| Rename | Процедура изменяет имя файла, связанного с файловой переменной F. Переменная NewName является строкой типа string или PChar (если включена поддержка расширенного синтаксиса) |
| RmDir | Процедура удаляет пустой каталог, путь к которому задается в строке S. Если указанный каталог не существует или он не пустой, то возникает сообщение об ошибке ввода/вывода |
Потоки
Потоки - очень удачное средство для унификации ввода/вывода для различных носителей. Потоки представляют собой специальные объекты-наследники абстрактного класса TStream. Сам TStream " умеет" открываться, читать, писать, изменять текущее положение и закрываться. Поскольку для разных носителей эти вещи происходят по-разному, конкретные аспекты реализованы в его потомках. Наиболее часто используются потоки для работы с файлами на диске и памятью.
|
|