«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

 

–абота с файлами в Delphi

‘айл Ц это именованна€ структура данных, представл€юща€ собой последовательность элементов данных одного типа расположенных на диске или любом другом внешнем носителе.

ƒл€ файла существует пон€тие текущей позиции. ќна показывает номер элемента, который будет прочитан или записан при очередном обращении к файлу. „тение-запись каждого элемента продвигает текущую позицию на единицу вперед. ƒл€ большинства файлов можно мен€ть текущую позицию чтени€-записи, выполн€€ пр€мой доступ к его элементам.

¬ зависимости от типа элементов различают три вида файла:
Ц файл из элементов определенного типа (типизированные файлы);
Ц файл из элементов, тип которых не указан (нетипизированный файл);
Ц текстовый файл, т.е. элементами €вл€ютс€ текстовые строки.

ƒл€ работы с файлом в программе объ€вл€етс€ файлова€ переменна€ (логический файл) в разделе описани€ переменных:

им€_файла:file of тип_элементов_файлов;

‘айл, компонентами которого €вл€ютс€ данные символьного типа, называетс€ символьным, или текстовым:

им€_файла:TextFile;

ѕосле объ€влени€ файловой переменной, котора€ задает тип компонентов файла, необходимо указать конкретный файл, т.е. св€зать файловую переменную с физическим файлом. ƒл€ этого используетс€ процедура:

AssignFile(var f, им€_файла:String);

‘ункции и процедуры дл€ работы с файлами:

1. ќткрытие файла дл€ записи

Ц перезапись (запись нового файла поверх существующего или создание нового файла) Ц используетс€ процедура

rewrite(файлова€_переменна€)

Ц добавление в конец файла Ц используетс€ процедура

append(файлова€_переменна€)

1. «апись в файл

Write(файлова€_переменна€, список_переменных)

Writeln(файлова€_переменна€, список_переменных)

–азличие между инструкци€ми в том, что инструкци€ writeln после вывода всех значений, записывает в файл символ Ђнова€ строкаї.

2. «акрытие файла. ѕеред завершением работы все открытые файлы необходимо закрыть с помощью процедуры

CloseFile (файлова€_переменна€)

3. ќткрытие файла дл€ чтени€. »спользуетс€ процедура Reset(файлова€_переменна€)

4. „тение данных из файла

read(файлова€_переменна€, список_переменных)

readln(файлова€_переменна€, список_переменных)

ќтличие между этими процедурами в том, что при вызове инструкции readln указатель чтени€ из файла автоматически перемещаетс€ в начало следующей строки файла.

5. ќпределение конца файла. »спользуетс€ функци€ EOF(файлова€_переменна€). «начение функции равно false, если прочитанный элемент данных не €вл€етс€ последним в файле, т.е. возможно дальнейшее чтение. ≈сли прочитанный элемент файла €вл€етс€ последним, то значение EOF равно true.

While not eof(f) do begin Е end;

6. Rename(var F; NewName: string) Ц переименовывает неоткрытый файл F любого типа. Ќовое им€ задаетс€ в NewName.

7. Seek(var F; NumRec: Longint) Ц устанавливает позицию чтени€-записи на элемент с номером NumRec; F Ц типизированный или нетипизированный файл.

8. IOResult: Integer Ц возвращает код, характеризующий результат (была ошибка или нет) последней операции ввода-вывода.

9. FilePos(var F): Longint Ц возвращает дл€ файла F текущую файловую позицию (номер элемента, на которую она установлена, счита€ от нул€). Ќе используетс€ с текстовыми файлами.

10. FileSize(var F): Longint Ц возвращает число компонент в файле F. Ќе используетс€ с текстовыми файлами.

ƒл€ работы с файлами можно использовать следующие визуальные компоненты:

Ц {SITELINK-S102}OpenDialog{/SITELINK};

Ц {SITELINK-S103}SaveDialog{/SITELINK} и др, которые наход€тс€ на вкладке Dialogs.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

 арта сайта язык моделировани€ UML ”нифицированный €зык моделировани€ UML ќписание €зыка програмимровани€ Delphi ѕерегрузка процедур и функций ќбработка исключений в Delphi —труктура среды программировани€ “ипы данных Case-средства “ехнологи€ внедрени€ CASE-средств 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом