Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Реферат: Работа с файлам в Дельфи

Название: Работа с файлам в Дельфи
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 17:34:53 09 декабря 2005 Похожие работы
Просмотров: 493 Комментариев: 3 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

Эта статья ориентирована на новичков, которые желают научиться работать с файлами в дельфи. В статье рассматриваются стандартные I/O операции с файлами, типичные ошибки и методы их предотвращения.

Intro

В дельфи файл представляется как именованная структура данных, т.е. последовательность однотипных данных. Грубо говоря это огромный массив, число элементов которого практически ни чем не ограничено. Для облегчения работы с файлами в дельфи, каждый отдельный файл представляет файловая переменная. Раз уж это переменная, то она должна быть обьявлена как переменная. Однако обо всем по порядку.

Step by step

Step 1 - Обьявление файловой переменной

Файловая переменная в общем виде обьявляется в разделе var примерно так:

F: file of Type;

Например:

F: File of integer;

Следует заметить, что текстовые файлы обьявляются немного по другому:

F : TextFile;

Да и вообще текстовые файлы "особенные". Некоторые функции работают только с текстовыми файлами. Также можно обьявить не только файл целых чисел(integer), текстовый файл или файл какого либо другого типа, но и файл собственного типа или записи, поместив обьявление типа или записи выше обьявления файловой переменной. Например:

type

TDay = (MON, TUE, WED, THU, FRI, SAT, SUN);

var

F : File of TDay;

или:

type

TDay = record

Num : Integer;

Name : String[200];

end;

var

F : File of TDay;

Следует обратить внимание, что длина строковых полей в записи должна быть четко определена (Name : String[200])

Step 2 - Назначение и открытие файла

После обьявления файловой переменной нужно связать её с физическим файлом на диске. Сделать это можно с помощью процедуры AssignFile:

AssignFile(var F : File; FileName : String);

Например:

var F : TextFile;

...

begin

AssignFile(F, "text.txt");

...

После выполнения процедуры файловая переменная F будет связана с файлом text.txt, находящимся в папке с программой. И все действия, производимые с переменной будут действовать именно на этот файл. Однако переменную можно освободить для дальнейшего использования с другим файлом процедурой CloseFile, но об этом ниже. Теперь необходимо открыть файл, причем одним из нескольких способов, в зависимости от ваших потребностей. Создать новый или перезаписать существующий можно с помощью процедуры Rewrite(F). Открыть для записи в конец файла можно с помощью процедуры Append(F). А открытие файла для чтения осуществляет процедура Reset.

Step 3 - Стандартные I/O опреации с файлами

I/O - это операции ввода/вывода (input/output). Здесь мы рассмотрим запись данных в файл и чтение этих данных. Сначала запись. Записать в файл можно переменную или константу того типа, которого был обьявлен файл. Например если файл был обьявлен вот так F : File of Integer, то в него можно будет записать данные только типа Integer. При попытке записать данные другого типа компилятор выдаст сообщение об ошибке. Запись в файл осуществляется процедурами Write([var F : File]; P1; [...,Pn]) и WriteLn([var F : File]; P1; [...,Pn]). Вторая отличается от первой тем, что она после записи параметра перемащает каретку на новую строку, т.е. следующий параметр запишется на новой строке. Вот пример использования процедур:

var F : TextFile;

Str : String;

...

Str := "Some Text";

WriteLn(F, Str);

Write(F, "это будет на новой стоке ");

write(F, "а это на этой же строке");

...

Чтение данных происходит благодоря процедурам Read([var F : File]; V1; [...,Vn]) и ReadLn([var F : File]; V1; [...,Vn]). Отличиаются они тем, что после прочтения параметра процедурой ReadLn каретка перемещается на новую строку, даже если ещё были данные. Вот пример:

var F : TextFile;

Str : String;

Str2 : String;

Str3 : String;

...

Read(F, Str);

ReadLn(F, Str2);//str2 будет содержать данные, идущие после str

Read(F, Str3);//str3 будет содержать данные, находящиеся на новой строке после str2

...

Думаю не все так сложно.

Step 4 - Закрытие файла

Файловую переменную после использования нужно обьязательно освободить, иначе программа не закроется и будет выдавать ошибку. Также освобождение файловой переменной будет полезно тогда, когда вам нужно работать с несколькими файлами последовательно, и после работы с первым файлом можно освободить переменную и связать её с новым файлом. Освобождение файловой перменной делает процедура CloseFile(F : File). Примера я думаю не надо, т.к. никаких особенностей у нее нет.

Пример

Я думаю новичку будет все же сложно будет без примеров разобраться в работе с файлами. Поэтому давайте расмотрим простейший пример программы, которая по нажатию одной кнопки будет запрашивать имя файла у пользователя и записывать содержимое TMemo. А по нажатию другой кнопки программа опять же будет запрашивать имя файла, читать от туда записанные данные и помещать их в TMemo. Знаю, что запись и чтение в TMemo можно организовать с помощью специальных методов. Но это всего лишь пример к статье. Вобщем кидайте на форму одну TMemo и две кнопки. Обработчик первой кнопки приведите к такому виду:

procedure TForm1.Button1Click(Sender: TObject);

var

F : TextFile;

FileName : String;

i : Integer;

begin

FileName := InputBox("Имя файла", "Введите имя файла", "default.txt");

AssignFile(F, FileName);

Rewrite(F);

for i := 0 to Memo1.Lines.Count do

WriteLn(F, Memo1.Lines[i]);

CloseFile(F);

end;

Это кнопка будет сохранять текстовый файл. Итак, в разделе var я обьявил три локальные переменные: F типа TextFile это и есть файловая переменная для текстовых файлов; FileName типа String будет служить для хранения имени файла; И i типа Integer - для циклов. В первой строчке я запрашиваю у пользователя имя файла. Во второй я связываю файловую переменную с физическим файлом на диске. Строчка Rewrite(F) создает новый файл или перезаписывает существующий. ЧТо бы данные не заменялись а добавлялись в конец файла эту строчку нужно заменить на Append(F). Далее идет цикл с 0 до количества всех строк Memo1. В цикле содержимое все строк Memo1 по порядку записывается в файл. Обратите внимание, что я использую WriteLn для записи новой строчки. Если бы я использовал Write, то все строчки Memo1 в файле превратились в одну.

Обработчик второй кнопки должен выглядеть примерно так:

procedure TForm1.Button2Click(Sender: TObject);

var

F : TextFile;

FileName, tmp : String;

begin

FileName := InputBox("Имя файла", "Введите имя файла", "default.txt");

AssignFile(F, FileName);

Reset(F);

while not EOF(f) do

begin

ReadLn(F, tmp);

Memo1.Lines.Add(tmp);

end;

CloseFile(F);

end;

Назначение локальных переменных в этой процедуре аналогичны предудыщим. Первая и вторая строчка аналогичны строчками из обработчика первой кнопки. Reset(F) - это я открываю файл для чтения процедурой Reset. Далее запускается цикл по всему файлу (while not EOF(F) do). Функция EOF(F : File) возвращает true когда достигнут конец файла. В цикле читается одна строчка из файла в переменную tmp и добавляется в Memo1. Вот и все, думаю довольно просто. Однако программу легко обмануть и вызвать исключение. Например при чтении файла пользователь может задать имя несуществующего файла. Тогда возникнет ошибка. Далее мы поговорим о способах защиты программы от исключений

Способ 1 - Простейший

Конечно простейший, но достаточно эффективный способ защиты можно организовать с помощью вложенных блоков try - except и try - finally. Вы знаете, что если при выполнении инструкции в теле блока try - except происходит исключение, то выполнение дальнейших инструкций останавливается и выполняется то, что находится между except - end. Но если возникло исключение, а далее находится CloseFile(F), то эта процедура не выполняется и программа не сможет корректно работать и завершиться. Решение этой проблемы - использование вложенных try - except и try - finally. Вот пример

var

F : TextFile;

S : String;

...

begin

try

try

...

Reset(F);

ReadLn(F, S);

...

except

MessageDlg("Ошибка работы с файлом", mtError, [mbOk], 0);

end;

finally

CloseFile(F);

end;

Но этот способ может не сработать, если была попытка открытия несуществующего файла (возникнет искючение при выполнении CloseFile(F)).

Способ 2 - Эффективный

Известно, что программа сама берет на себя обработку исключений. Но она не всегда делает это правильно. Поэтому лучшим решением было бы самому проконтролировать момент открытия файла. Для этого нужно сначала отключить автоматическую обработку исключений директивой {I-}. А включить можно так: {I+}. Потом свериться со значением функции IOResult. При успешном открытии файла она возвращает 0. Вот пример:

{I-}

Reset(F);

{I+}

if IOResult<>0 then

begin

MessageDlg("Файл "+PChar(FileName)+ " несуществует", mtError, [mbOk], 0);

EXIT; //продолжать нельзя

end;

Все это вставьте в процедуру чтения файла (в примере выше) вместо строки Reset(F). Так же можно застраховаться от сбоев вставив эту конструкцию в процедуру сохранения файла вместо строки Rewrite.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений22:32:55 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
14:41:28 24 ноября 2015
Данный текст помог.
EVgeniy20:05:06 31 октября 2009

Работы, похожие на Реферат: Работа с файлам в Дельфи

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(151205)
Комментарии (1843)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru