Delphi запись в файл. Запись в текстовый файл, Excel и пр
Эта статья ориентирована на новичков, которые желают научиться работать с файлами в дельфи. В статье рассматриваются стандартные I/O операции с файлами, типичные ошибки и методы их предотвращения.
В дельфи файл представляется как именованная структура данных, т.е. последовательность однотипных данных. Грубо говоря это огромный массив, число элементов которого практически ни чем не ограничено. Для облегчения работы с файлами в дельфи, каждый отдельный файл представляет файловая переменная. Раз уж это переменная, то она должна быть обьявлена как переменная. Однако обо всем по порядку.
Step 1 - Обьявление файловой переменной
Файловая переменная в общем виде обьявляется в разделе var примерно так:
F: file of Type;
Например:
F: File of integer;
Следует заметить, что текстовые файлы обьявляются немного по другому:
Да и вообще текстовые файлы "особенные". Некоторые функции работают только с текстовыми файлами. Также можно обьявить не только файл целых чисел(integer), текстовый файл или файл какого либо другого типа, но и файл собственного типа или записи, поместив обьявление типа или записи выше обьявления файловой переменной. Например:
TDay = (MON, TUE, WED, THU, FRI, SAT, SUN);
F: File of TDay;
F: File of TDay;
Следует обратить внимание, что длина строковых полей в записи должна быть четко определена (Name: String)
Step 2 - Назначение и открытие файла
После обьявления файловой переменной нужно связать её с физическим файлом на диске. Сделать это можно с помощью процедуры AssignFile:
AssignFile(var F: File; FileName: String);
Например:
var F: TextFile;
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(; P1; [...,Pn]) и WriteLn(; P1; [...,Pn]). Вторая отличается от первой тем, что она после записи параметра перемащает каретку на новую строку, т.е. следующий параметр запишется на новой строке. Вот пример использования процедур:
var F: TextFile;
Str:= "Some Text";
WriteLn(F, Str);
Write(F, "это будет на новой стоке ");
write(F, "а это на этой же строке");
Чтение данных происходит благодоря процедурам Read(; V1; [...,Vn]) и ReadLn(; V1; [...,Vn]). Отличиаются они тем, что после прочтения параметра процедурой ReadLn каретка перемещается на новую строку, даже если ещё были данные. Вот пример:
var F: TextFile;
ReadLn(F, Str2);//str2 будет содержать данные, идущие после str
Read(F, Str3);//str3 будет содержать данные, находящиеся на новой строке после str2
Думаю не все так сложно.
Step 4 - Закрытие файла
Файловую переменную после использования нужно обьязательно освободить, иначе программа не закроется и будет выдавать ошибку. Также освобождение файловой переменной будет полезно тогда, когда вам нужно работать с несколькими файлами последовательно, и после работы с первым файлом можно освободить переменную и связать её с новым файлом. Освобождение файловой перменной делает процедура CloseFile(F: File). Примера я думаю не надо, т.к. никаких особенностей у нее нет.
Я думаю новичку будет все же сложно будет без примеров разобраться в работе с файлами. Поэтому давайте расмотрим простейший пример программы, которая по нажатию одной кнопки будет запрашивать имя файла у пользователя и записывать содержимое TMemo. А по нажатию другой кнопки программа опять же будет запрашивать имя файла, читать от туда записанные данные и помещать их в TMemo. Знаю, что запись и чтение в TMemo можно организовать с помощью специальных методов. Но это всего лишь пример к статье. Вобщем кидайте на форму одну TMemo и две кнопки. Обработчик первой кнопки приведите к такому виду:
procedure TForm1.Button1Click(Sender: TObject);
FileName: String;
AssignFile(F, FileName);
for i:= 0 to Memo1.Lines.Count do
WriteLn(F, Memo1.Lines[i]);
Это кнопка будет сохранять текстовый файл. Итак, в разделе var я обьявил три локальные переменные: F типа TextFile это и есть файловая переменная для текстовых файлов; FileName типа String будет служить для хранения имени файла; И i типа Integer - для циклов. В первой строчке я запрашиваю у пользователя имя файла. Во второй я связываю файловую переменную с физическим файлом на диске. Строчка Rewrite(F) создает новый файл или перезаписывает существующий. ЧТо бы данные не заменялись а добавлялись в конец файла эту строчку нужно заменить на Append(F). Далее идет цикл с 0 до количества всех строк Memo1. В цикле содержимое все строк Memo1 по порядку записывается в файл. Обратите внимание, что я использую WriteLn для записи новой строчки. Если бы я использовал Write, то все строчки Memo1 в файле превратились в одну.
Обработчик второй кнопки должен выглядеть примерно так:
procedure TForm1.Button2Click(Sender: TObject);
FileName, tmp: String;
FileName:= InputBox("Имя файла", "Введите имя файла", "default.txt");
AssignFile(F, FileName);
while not EOF(f) do
Memo1.Lines.Add(tmp);
Назначение локальных переменных в этой процедуре аналогичны предудыщим. Первая и вторая строчка аналогичны строчками из обработчика первой кнопки. 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. Вот пример
MessageDlg("Ошибка работы с файлом", mtError, , 0);
Но этот способ может не сработать, если была попытка открытия несуществующего файла (возникнет искючение при выполнении CloseFile(F)).
Способ 2 - Эффективный
Известно, что программа сама берет на себя обработку исключений. Но она не всегда делает это правильно. Поэтому лучшим решением было бы самому проконтролировать момент открытия файла. Для этого нужно сначала отключить автоматическую обработку исключений директивой {I-}. А включить можно так: {I+}. Потом свериться со значением функции IOResult. При успешном открытии файла она возвращает 0. Вот пример:
if IOResult<>0 then
MessageDlg("Файл "+PChar(FileName)+ " несуществует", mtError, , 0);
EXIT; //продолжать нельзя
Все это вставьте в процедуру чтения файла (в примере выше) вместо строки Reset(F). Так же можно застраховаться от сбоев вставив эту конструкцию в процедуру сохранения файла вместо строки Rewrite.
Поименованная область памяти на внешнем носителе (диске) называется файлом . У любого файла есть имя . Информация , которая хранится в файле, представляет собой множество элементов одного типа. Размер файла, как правило, ограничен только емкостью устройства, на котором он хранится, что позволяет обрабатывать большие объемы информации.
Способ объявления файла зависит от его типа. Различают три типа файлов:
текстовые ;
типизированные ;
нетипизированные .
Текстовый файл , состоит из последовательности любых символов. Символы образуют строки, каждая из которых заканчивается символом «конец строки». Конец самого файла обозначается символом «конец файла». При записи информации в текстовый файл, все данные преобразуются к символьному типу и хранятся в таком виде. Просмотреть текстовый файл можно с помощью любого текстового редактора .
Описание текстового файла :
var имя_переменной: TextFile;
Типизированный файл состоит из элементов одного типа, число которых заранее не определено и может быть любым. Он так же заканчивается символом «конец файла». Данные в типизированном файле хранятся в двоичных кодах и не просматриваются текстовыми редакторами. Объявление таких файлов имеет вид:
имя_переменной: file of тип;
В нетипизированных файлах информация считывается и записывается в виде блоков определенного размера, в них могут храниться данные любого вида и структуры. Описание нетипизированного файла:
var имя_переменной: file;
Для доступа к файлам используют специальную файловую переменную .
Например:
c:file of integer;
Для связи файловой переменной с файлом на диске примняют процедуру:
AssignFile(переменная, имя_файла);
здесь переменная – имя переменной любого файлового типа, имя_файла – строка символов, содержащая полное имя файла (если путь к файлу не указан, подразумевается, что он находится в текущем каталоге).
Например:
S:=’text.txt’;
assign (f,’d:\tp\tmp\abc.dat’);
Для открытия существующего файла используют процедуру:
Reset(файловая_переменная);
После открытия файла доступен его первый компонент.
Для создания нового файла или удаления информации из существующеего применяют процедуру:
Rewrite(файловая_переменная);
После выполнения различных операций файл должен быть закрыт . Для этого применяют процедуру
CloseFile(файловая_переменная);
Запись данных в текстовый файл осуществляется процедурами
Write(переменная, список_выражений);
Writeln(переменная,список_выражений);
где список_выражений – выражения символьного, целочисленного, вещественного, строкового или логического типов, которые будут записаны в файл, связанный с файловой переменной.
Процедура Writeln в конце каждой строки добавляет символ «окончание строки».
ПРИМЕР. Подпрограмма, которая создает на диске D файл abc.txt и записывает в него таблицу умножения.
var f:TextFile; i,j:byte;
assignFile(f,"d:\abc.txt");
for i:=2 to 9 do
for j:= 2 to 9 do
write(f,i,"*",j,"=",i*j," ");
Чтение данных из файла осуществляется последовательно от начала файла процедурой
Readln(переменная,список_переменных);
здесь в списоке_переменных перечисляются переменные, в которые будут записаны данные прочитанные из файла, связанного с файловой переменной.
Процедура Readln после чтения из файла очередного элемента переходит к следующей строке.
Обращение к следующей подпрограмме приведет к тому, что на форме в окне редактирования появится текст из файла D:\abc.txt :
procedure TForm1.Button1Click(Sender: TObject);
a:string; i:integer;
AssignFile(f1,"D:\abc.txt");
for i:=1 to 8 do
Memo1.Lines.Add(a);
Для типизированных файлов так же применимы процедуры чтения и записи
Read(переменная,список_переменных);
Write(переменная,список_выражений);
только типы выражений при записи и чтении должны соответствовать объявленному типу файла. Процедуры Writeln и Readln к типизированным файлам не применяют.
Для перемещения по типизированному файлу используют процедуру:
Seek(переменная, номер);
Эта процедура позволяет перейти к элементу с указанным номером, то есть осуществляет прямой доступ к компонентам файла . При прямом доступе компоненты файла нумеруются от 0 до n-1, где n – число компонентов в файле.
Так же для прямого доступа к компонентам типизированного файла можно применять функции:
filesize(переменная) – возвращает число реальных компонентов в открытом файле, связанном с файловой_переменной (для пустого файла функция вернет 0);
filepos(переменная) – возвращает значение текущей позиции в открытом файле, связанном с файловой переменной (если файл только что открылся, то функция вернет ноль, после прочтения последнего компонента из файла значение функции совпадает со значением filesize, что указывает на достижение конца файла).
Процедура Seek и функции filesize и filepos с текстовыми файлами не работают. Следующие подпрограммы работают как с типизированными, так и с текстовыми файлами:
Rename(переменная,имя_файла)
переименовывает закрытый файл, связанный с файловой переменной, в соответствии с именем указанным в строке имя файла;
Erase(переменная) – удаляет закрытый файла, связанный с файловой переменной;
Eof(переменная) принимает значение истина (true), если достигнут конец файла, связанного с файловой_переменной, и ложь (false) в противном случае;
ПРИМЕР. Подпрограмма, приведенная ниже, работает так. Открывается вещественный файл d:\abc.dat и в него записывается определенное количество вещественных чисел, вычисленных по формуле. Просмотреть созданный файл не возможно, так как информация в нем представлена в двоичных кодах.
procedure TForm1.Button1Click(Sender: TObject);
AssignFile(f,"d:\abc.dat");
n:=StrToInt(Edit1.Text);
for i:=1 to n do
a:= sqr(i)/sqrt(i);
Чтобы убедиться, что запись в файл d:\abc.dat произошла успешно, выведем его значения в окно редактирования:
procedure TForm1.Button1Click(Sender: TObject);
f1:file of real;
AssignFile(f1,"D:\abc.dat");
while not eof (f1) do
Memo1.Lines.Add(FloatToStr(a));
ЗАДАЧА. На диске Е есть файл целых чисел аbc.int , поменять местами его максимальный и минимальный элементы.
Приведенная далее программа работает так. Компоненты файла считываются в массив. Элементы массива выводятся в поле Memo1. Затем происходит поиск минимального и максимального элементов массива и их индексов. Максимальный и минимальный компоненты перезаписываются в файл на соответствующие позиции.
В заключении элементы преобразованного файла выводятся в поле Memo2.
procedure TForm1.Button1Click(Sender: TObject);
f:file of integer;
a:array of integer;
i,nmax,nmin:byte; max,min:integer;
AssignFile(f,"e:\abc.int");
for i:=0 to filesize(f)-1 do
Memo1.Lines.Add(FloatToStr(a[i]));
max:=a; nmax:=0;
min:=a; nmin:=0;
for i:=1 to filesize(f)-1 do
if a[i]>max then
if a[i] for i:=0 to filesize(f)-1 do Memo2.Lines.Add(FloatToStr(a[i])); Мы подробно рассмотрим, как копировать, удалять, переименовывать файлы. Научимся считывать и записывать информацию в типизированные файлы.
Для этого нам потребуется вызов всего одной функции, которая выполняет именно копирование файлов. Это функция CopyFile(). У нее три параметра, два из которых обязательны. Вот полный синтаксис. Пример: CopyFile("D:sekretBD.txt","C: ame.txt", true); В первом параметре можно указывать не только полный путь до файла. Если укажем, например, такой путь "sekretBD.txt", то наша программа будет искать этот файл в своем каталоге. Имя и разрешение нужно указывать именно такими, какие они есть у файла, иначе программа просто не найдет файл. За переименование файлов отвечает функция RenameFile(). У нее 2 параметра. Вот ее полный синтаксис RenameFile("C:2.txt","3.txt"); То он скопирует файл в каталог программы. Т.е. получается, что она может выполнять роль копирования тоже. Это немного странно. Ну здесь все совсем просто. Функция, с помощью которой можно удалить файл, вызывается так: DeleteFile("C:myprofile.txt"); Единственное, что она не всегда 100% удаляет файл. Когда файл защищен, она его не сможет удалить. Что такое типизированный файл? Это файл с определенной структурой. Обычно это структурой выступают записи и базовые типы. В общем, важно, чтобы у типа был известен фиксированный размер, поэтому тип string применять нельзя, нужно делать так: String[N]. Var f: file of <Тип> Затем нам нужно соединиться с файлом. Для этого есть команда AssignFile. Для вызова надо прописать два параметра, это переменная, которую мы объявили выше и путь до файла. Например AssignFile(f,"C:delphi.ini"); Теперь файл нужно открыть. Можно открыть двумя способами: с перезатиранием и без. Метод Rewrite открывает файл, предварительно создав его. Т.е. если файла в указанном нами пути не будет находиться, то он его создаст. Если там уже был такой файл, то он будет удален и заново создастся чистый файл. Метод Reset открывает файл и ставит указатель в самое начало файла. Но этот метод опасен тем, что если файла, указанного в подключении, нет, то программа вылетит с ошибкой. Так что для правильного применения функции Reset надо сказать компилятору об отключении ошибок. Задается это директивой {$I-} т.е. полный синтаксис функции reset будет таким: {$I-} После этого надо проверить, был ли открыт файл или нет. Это можно сделать с помощью функции IOResult. Если она не равна нолю, то все успешно. {$I-} Также осуществить проверку поможет функция FileExists. В ней нужно указать путь до файла. Для записи в файл служит функция Write(), в которой указываются такие же два параметра: переменная файла и тип записи, в нашем случае это string. Синтаксис: While not eof(f) do Также есть функция seek, с помощью которой мы можем перейти на интересующую нас запись. Например, нам нужно обратиться к 20 записи и мы делаем так: Еще есть функция truncate, С помощью которой мы можем удалить все записи файла, начиная от позиции указателя. Позицию можно указать с помощью функции seek, кто не понял. После выполнения всех операций с файлом, необходимо его закрыть с помощью функции CloseFile(f); Создайте новый проект Delphi. Первым делом разработаем интерфейс программы. Изменим некоторые свойства главной формы. Прежде всего, присвойте соответствующее значение свойству Caption (заголовок формы) - например, Работа с файлами. Поскольку окно нашей программы должно всегда находиться поверх всех остальных окон, следует присвоить свойству FormStyle значение fsStayOnTop. Больше никаких свойств формы изменять не будем. Разместите в левом верхнем углу формы, один над другим два компонента Label (метка) категории Standard
. Для верхней метки присвойте свойству Caption значение Что:, а для второй - Куда:. Рядом с метками разместите по одному компоненту Edit (поле ввода) категории Standard
. Присвойте свойству Name (имя) верхнего поля значение from, а свойству Name нижнего - значение where. Свойствам from.Text и where.Text присвойте пути по умолчанию, например: c:\1.txt и d:\2.txt. Для того чтобы не утруждать пользователя копированием или ручным вводом путей размещения файлов, воспользуемся стандартными диалоговыми окнами открытия и сохранения файлов. Диалоговом окну открытия файла соответствует компонент OpenDialog категории Dialogs
, а диалоговому окну сохранения - компонент SaveDialog той же категории. Разместим эти компоненты на форме. Для удобства изменим значение свойства OpenDialog1.Name на Open1, а значение свойства SaveDialog1.Name на Save1. Справа от полей from и where разместим кнопки вызова диалогового окна обзора (компоненты Button категории Standard
). Свойству Caption этих кнопок присвойте значение Обзор или просто поставьте точки. При желании, можете изменить размеры кнопок. Разместите на форме под полем where компонент Label категории Standard
и присвойте его свойству Caption значение Размер файла:. Справа от этой метки разместите еще один компонент Label, очистив для нее свойство Caption - эта метка будет отображать размер обрабатываемого файла. Ниже разместим две кнопки (компоненты Button), присвоим их свойствам Caption значения Копировать и Вырезать. Под этими кнопками разместим компоненты, которые будут использоваться для выбора и удаления файлов: компонент Edit для ввода пути к файлу, кнопка вызова диалогового окна обзора и кнопка для удаления файла. Свойству Edit1.Name присвоим значение Del, а свойству Text – путь по умолчанию. Кнопку Обзор
разместим справа, а кнопку Удалить файл
- под полем Del. Полученная форма должна соответствовать рис. 2.1. Рис. 2.1. Форма Работа с файлами
Разработаем процедуру копирования файла. Это можно было бы реализовать средствами WinAPI, однако в этом случае процедура, хотя и была бы менее громоздкой, оказалась бы "привязанной" к системе, что для программ нежелательно, поэтому лучше воспользоваться библиотеками Delphi. Для начала объявим нашу процедуру (назовем ее doit) как закрытый член класса формы: Реализацию процедуры создадим в разделе implementation: ⇘ Различные конструкции языка Object Pascal (комментарии, операторы ветвления, обработка исключений и др.) рассматриваются в приложении Г. Эта процедура будет использоваться при копировании и переносе файлов. Сначала мы открываем файлы, которые выбрал пользователь, а затем проверяем, не было ли ошибок при их открытии. Если ошибок не было, то отображаем пользователю размер исходного файла и начинаем считывать байты из первого файла, записывая их во второй. Если копирование завершено и ошибок при этом не произошло, то отображаем сообщение об успешном окончании копирования. Процедура doit вызывается при нажатии кнопки Копировать
: По нажатию кнопки Вырезать
должно происходить обычное копирование с последующим удалением скопированного файла: Теперь создадим процедуры выбора и сохранения файла с помощью стандартных диалоговых окон. Для выбора первого (исходного) файла следует создать следующий обработчик события OnClick (кнопке Button2 соответствует поле from): При нажатии кнопки Обзор
открывается диалоговое окно выбора файла (Open1.Execute). Если в этом окне пользователь нажал кнопку Отмена
(Open1.Execute = False), то сообщаем ему об этом и не выполняем никаких действий. Если пользователь выбрал файл, то копируем путь к нему в соответствующее поле ввода. Создадим аналогичный обработчик события для выбора пути назначения при копировании первого файла (кнопке Button3 соответствует поле where): Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать. Теперь создадим аналогичный обработчик события OnClick для кнопки Обзор
, используемой для выбора размещения удаляемого файла: Сама кнопка Удалить
выполняет при нажатии следующий код: Сначала мы удаляем файл, а затем проверяем, существует ли он на диске после выполнения операции удаления. Если его не существует, то выводим сообщение об успешном удалении файла. Теперь можно откомпилировать и запустить программу на выполнение. Внешний вид окна Работа с файлами
в действии показан на рис. 2.2. Рис. 2.2. Программа Работа с файлами в действии
Полный код модуля программы Работа с файлами представлен в листинге 2.1. ⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter_02. Тема
: «
Работа с типизированным файлом в
Delphi
»
Разработайте приложение, позволяющее работать с типизированным файлом путём выбора соответствующего пункта меню: Файл
Просмотр
Редактирование
Печать
Справочники
Выход
Всех данных Добавление По условию По условию Корректировка Документа Поставщики Удаление Требования к приложению:
Все глобальные типы данных, константы и переменные разместите в отдельном модуле (Unit2), который необходимо подключить к другим модулям проекта через пункт меню File / Use Unit. Для ввода исходных данных в файл (пункты меню «Корректировка» и «Добавление») разработайте экранную форму ввода. Предусмотрите проверку корректности ввода исходных данных используя событие OnKeyPress. Просмотр данных из файла надо реализовать выводом в таблицу StringGrid. При реализации пункта меню «Корректировка» на форму ввода должны быть выведены «старые» значения полей корректируемой записи. Пункт меню «Удаление» должен обеспечивать удаление одной записи из файла по выбору пользователя. Печать по условию реализуйте с помощью компонента QuickRep и дополнительного текстового файла. Печать документа можно реализовать с помощью метода Form10.Print, разместив предварительно на форму необходимую информацию. На форме, помимо главного меню, разместите: Работа с приложением должна начинаться с ввода на отдельной форме пароля для того, чтобы избежать несанкционированного доступа к данным. При первом открытии формы, содержащей пункты главного меню задачи, доступными должны быть только пункты «Файл» и «Выход». Для кнопок используйте компонент BitBtn, назначьте цвет и размер шрифта, а также картинку, подходящую по смыслу. При желании разместите слева от названия некоторых пунктов меню подходящее по смыслу изображение, используя свойство Bitmap (Program Files \ Common Files \ Borland Shared \ Images \ Buttons) На форме «Просмотр всех записей файла» организуйте поиск записи и обеспечьте вывод найденной записи на отдельной форме. Информация
о поступлении товара на склад: дата поступления, поставщик, название товара, цена, количество - должна сохраняться в типизированный файл. Условие для просмотра – товар от выбранного поставщика. Условие для печати – поступление товара за определённую дату. Документ – товарная карточка. ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ: Создайте новое приложение На Form1 создайте главное меню, согласно условию задачи. Вынесите на Form1 компонент Image1. В Инспекторе объектов компоненту Image1 назначьте свойства: Stretch = true Добавьте к проекту новый модуль File / New / Unit и в разделе Interface пропишите Ttov = record //структура записи, содержащая сведения о товаре для DateP: TdateTime; //дата поставки
Postav: string ; // фирма-поставщик товара
Tovar: string; //название товара
Cena: real; //цена товара
Kol: integer; //количество товара
Var
Tov: Ttov; //запись содержащая сведения о товаре
F1, F3: file of Ttov; // типизированный
файл для хранения сведений о товаре
F2: textFile ; // текстовый файл для реализации печати по условию
Name_F: string; //
имя
файла
. . . // другие переменные, которые понадобятся для решения задачи
Справочник Товаров
» (File / New / Form). Форма «Справочник Товаров» должна содержать компоненты ListBox, Edit, Label и две кнопки BitBtn, позволяющие сохранить содержимое Edit в список ListBox и всё содержимое ListBox в текстовый файл. Компоненту ListBox в Инспекторе объектов назначьте свойству Sorted значение True, тогда элементы будут отсортированы в алфавитном порядке. В Инспекторе объектов для формы «Справочник Товаров» выберите событие OnActivate. Напишите в процедуре программный код: If FileExists(‘tovar.txt’) = true then ListBox1.items.LoadFromFile(‘tovar.txt’); В Инспекторе объектов для кнопки «Добавить в список» выберите событие OnClick. Напишите в процедуре программный код: Listbox1.Items.Append(Edit1.text); Edit1.Text:= ""; В Инспекторе объектов для кнопки «Удалить из списка» выберите событие OnClick. Напишите в процедуре программный код: If MessageDlg ("Удалить запись? ", mtConfirmation, , 0) = mrYes then ListBox1.items.Delete (ListBox1.itemindex); В Инспекторе объектов для кнопки «Закрыть» выберите событие OnClick. Напишите в процедуре программный код: ListBox1.items.SaveToFile(‘tovar.txt’); В Инспекторе объектов для кнопки «Закрыть» выберите событие OnClick. Напишите в процедуре программный код: Form3.Close ; Аналогично выполните работу с формой «Справочник фирм-поставщиков
». В процедуре вызова пункта меню «Товары» пропишите программный код: В процедуре вызова пункта меню «Поставщики» пропишите программный код: Вынесите на Form1 компонент SaveDialog1. Напишите программный код процедуры пункта меню «Создать
»: If SaveDialog1.Execute = true then Name_F:= SaveDialog1.FileName ; AssignFile(F1, Name_F) ; Rewrite(F1); // файл будет создан и открыт для записи
CloseFile(F1); // закрытие
файла
N1.Enabled:= true; // пункт
меню
Файл
N2.Enabled:= true; // пункт
меню
Просмотр
N3.Enabled:= true; // пункт
меню
Редактирование
N4.Enabled:= true; // пункт меню Печать
N5.Enabled:= true; // пункт
меню
Справочники
N6.Enabled:= true; // пункт меню Выход
Вынесите на Form1 компонент OpenDialog1. Напишите программные код процедуры пункта меню «Открыть
»: if OpenDialog1.Execute = true then Name_F:= OpenDialog1.FileName ; AssignFile(F1, Name_F); N1.Enabled:= true; // пункт
меню
Файл
N2.Enabled:= true; // пункт
меню
Просмотр
N3.Enabled:= true; // пункт
меню
Редактирование
N4.Enabled:= true; // пункт меню Печать
N5.Enabled:= true; // пункт
меню
Справочники
N6.Enabled:= true; // пункт меню Выход
В Инспекторе объектов для формы Form1 выберите событие OnCreate. Напишите в процедуре программный код: N1.Enabled:= true; // пункт
меню
Файл
N2.Enabled:= false; // пункт
меню
Просмотр
N3.Enabled:= false; // пункт
меню
Редактирование
N4.Enabled:= false; // пункт меню Печать
N5.Enabled:= false; // пункт
меню
Справочники
N6.Enabled:= true; // пункт меню Выход
Добавьте к приложению новую форму «Добавление
» для ввода исходных данных в файл. Разместите на форме компоненты dateTimePicker1, Combobox1, Combobox2, edit1, edit2, Button1. Обеспечьте проверку корректности ввода данных в компоненты edit1, edit2 используя событие OnKeyPress. Для компонентов Combobox запретите ввод данных с клавиатуры (т.к. данные должны выбираться только из справочников). Для этого в процедуре события OnKeyPress пропишите программный код: If not (key in ) then key:= #0; В Инспекторе объектов для формы «Добавление» свойству Caption введите значение «Добавление записи» и выберите событие OnActivate. Напишите в процедуре программный код: Exit ; // Tov.Tovar:= Combobox1.text; Tov.Postav:= Combobox2.text ; Reset (f1); // открыли файл для записи
Seek (F1, Filesize (F1)); // переход на последнюю запись файла
Write (F1,Tov); // записываем в файл запись
Edit1.text:= ‘’; // очистка
Edit2.text:= ’’; ComboBox1.text:= ‘’; ComboBox2.text:= ‘’; Добавьте к приложению новую форму «Просмотр всех данных
» для вывода данных из файла. Разместите на форме компонент StringGrid1. В Инспекторе объектов для формы «Просмотр всех данных» выберите событие OnActivate. Напишите в процедуре программный код: Reset(F1); // открыли файл для чтения
StringGrid1.RowCount: = FileSize(F1)+1 ; // ширина первого поля таблицы
ширина второго поля таблицы
Stringgrid1.ColWidths := 100; // Stringgrid1.ColWidths := 100; // ширина пятого поля таблицы
Reset (f1); // открыли файл для чтения
WhiLe not eof(F1) do Read(F1,tov) ; // считали запись из файла
Добавьте к приложению новую форму «Просмотр по условию
» для вывода данных из файла. Разместите на форме компоненты Label, ComboBox1, BitBtn1 и StringGrid1. В Инспекторе объектов для формы «Просмотр по условию» выберите событие OnActivate. Напишите в процедуре программный код: If FileExists(‘postav.txt’) = true then ComboBox1.items.LoadFromFile(‘postav.txt’); В Инспекторе объектов для компонента BitBtn1назначьте свойству Caption значение ‘Просмотр’ и выберите событие OnClick. Напишите в процедуре программный код: If ComboBox1.text = ‘’ Then // если не выбран Поставщик тогда …
ShowMessage(‘Заполните все поля!’); Exit ; // принудительный выход из процедуры
Reset(F1); // открыли файл для чтения
WhiLe not eof(F1) do Read(F1,tov) ; // считали запись из файла
If tov.Postav = ComboBox1.text then K: = K + 1 ; If k = 0 Then // если нет товара от выбранного Поставщика тогда …
ShowMessage (‘Нет товара от выбранного поставщика!’); Exit ; // принудительный выход из процедуры
StringGrid1.RowCount: = k+1 ; // установили количество строк в таблице
StringGrid1.CoLCount: = 5 ; // установили количество столбцов в таблице
StringGrid1. FixedCols:= 0 ; // количество фиксированных столбцов
StringGrid1. FixedRows:= 1; // количество фиксированных строк
Stringgrid1.ColWidths := 100; // ширина первого поля таблицы
Stringgrid1.ColWidths := 120; // ширина второго поля таблицы
Stringgrid1.ColWidths := 130; // ширина третьего поля таблицы
Stringgrid1.ColWidths := 100; // ширина четвертого поля таблицы
Stringgrid1.ColWidths := 100; // ширина пятого поля таблицы
StringGrid1.CeLLs := ‘Дата поставки’ ; StringGrid1.CeLLs := ‘Название товара’ ; StringGrid1.CeLLs := ‘Поставщик’ ; StringGrid1.CeLLs := ‘Цена за единицу’ ; StringGrid1.CeLLs := ‘Количество’ ; Reset (f1); // открыли файл для чтения
i:= 1; // i
– номер строки таблицы для вывода данных из файла
WhiLe not eof(F1) do Read(F1,tov) ; // считали запись из файла
If tov.Postav = ComboBox1.text then StringGrid1.CeLLs := DateToStr(tov.DateP) ; StringGrid1.CeLLs := tov.Tovar ; StringGrid1.CeLLs := tov.Postav ; StringGrid1.CeLLs := FloatToStr(tov.cena) ; StringGrid1.CeLLs := intToStr(tov.kol) ; i:= i + 1 ; // переход на следующую строку
StringGrid1.visible:= true ; Добавьте к приложению новую форму «Корректировка данных
» для изменения записи файла (например, Form8). Разместите на форме компоненты такие же как на форме «Добавление». Обеспечьте проверку корректности ввода данных в компоненты edit1, edit2 используя событие OnKeyPress. If FileExists(‘tovar.txt’) = true then ComboBox1.items.LoadFromFile(‘tovar.txt’); If FileExists(‘postav.txt’) = true then ComboBox2.items.LoadFromFile(‘postav.txt’); В процедуру пункта меню «Корректировка» напишите программный код: Form6.Show ; // В Инспекторе объектов для компонента StringGrid1 формы «Просмотр всех данных» выберите событие OnDbLClick. Напишите в процедуре программный код: If z
= 44
then Y:= StringGrid1.Row ; // Reset (F1) ; // открыли файл для чтения
Seek (F1, y – 1) ; // Read(F1, Tov) ; // считали из файла запись
Form8.dateTimePicker1.Date:= Tov.DateP ; Form8.Combobox1.text:= Tov.Tovar ; Form8.Combobox2.text:= Tov.Postav ; Form8.edit1.text:= FLoatToStr (Tov.Cena) ; Form8.edit2.text:= intToStr (Tov.Kol) ; If (Edit1.tetx = ‘’) or (Edit2.text = ‘’) or (ComboBox1.text = ‘’) or (ComboBox2.text = ‘’) Then Begin ShowMessage(‘Заполните все поля!’); Exit ; // принудительный выход из процедуры
Reset (F1) ; // открыли файл для записи
Seek (F1, y – 1) ; // переместились в файле на запись с номером у-1
Tov.DateP:= dateTimePicker1.Date; Tov.Tovar:= Combobox1.text; Tov.Postav:= Combobox2.text ; Tov.Cena:= StrToFloat (edit1.text); Tov.Kol:= StrToInt (edit2.text); Write (F1,Tov); // записываем в файл запись
Edit1.text:= ‘’; // очистка
Edit2.text:= ’’; ComboBox1.text:= ‘’; ComboBox2.text:= ‘’; В процедуру пункта меню «Удаление
» напишите программный код: Form6.Show ; // вызов формы «Просмотр всех данных»
В Инспекторе объектов для компонента StringGrid1 формы «Просмотр всех данных» выберите событие OnDblClick. Дополните процедуру программным кодом: If z
= 55
then Otv:= MessageDlg ("Удалить запись? ", mtConfirmation, , 0) ; if Otv = mrYes then Y1:= StringGrid1.Row ; // определили номер текущей строки таблицы
Y2:= Y1 -1 ; // номер записи в файле, которую надо удалить
AssignFile(F3, ‘result.dat’); Rewrite(F3); // Reset (F1) ; // открыли файл для чтения
While not eof(F1) do If FilePos(F1) Y2 then Read(F1, tov) ; // считали запись из файла
F
1
Write(F3, tov) ; // записали запись в файл
F
3
ELSE Read(F1,tov); Deletefile(Name_F) ; // удалили
исходный
файл
RenameFile(‘result.dat’, Name_F); // переименовали
файл
result.dat
Добавьте к приложению новую форму «Печать по условию
». Разместите на форме компоненты Label, DateTimePicker, BitBtn. Выбрав событие OnClick для кнопки «Печать» напишите в процедуру программный код, обеспечивающий формирование текстового файла, содержащего записи из типизированного файла, удовлетворяющие условию печати: AssignFile(F2, ‘pechat.txt’); Rewrite(F2); // создали и открыли файл для записи
Reset (F1) ; // открыли файл для чтения
K1:= 0; //первоначальное значение для подсчёта количества записей за указанную дату
While not eof(F1) do Read(F1, tov) ; // If DateToStr(tov.DateP) = DateToStr (DateTimePicker1.date) then D:= DateToStr(DateTimePicker1.date) ; K1:= K1 + 1; // подсчёт количества записей за указанную дату
WriteLN (F2, tov.Tovar: 20, tov.Postav: 20, tov.Cena: 20: 2, tov.Kol: 15) ; // записали в Добавьте к приложению новую форму (Form10). установите на Form10 компонент QuickRep1, который находится на странице QREPORT палитры компонентов; в Инспекторе объектов выберите в свойстве Bands подсвойство HasPageHeader и установите ему значение True, что обеспечит наличие верхнего колонтитула в в Инспекторе объектов выберите в свойстве Bands подсвойство HasTitle и установите ему значение True, что обеспечит наличие заголовочной полосы в выходном документе; установите на компонент QuickRep1 компонент QRStringsBand, который находится на странице QREPORT палитры компонентов; в Инспекторе объектов для компонента QuickRep1 выберите в свойстве Bands подсвойство HasPageFooter и установите ему значение True, что обеспечит наличие нижнего колонтитула в выходном документе; установите на полосу отчёта HasPageHeader компонента QuickRep1 компонент QRMemo1, который находится на странице QREPORT палитры компонентов. В Инспекторе объектов в свойстве Lines запишите информацию об организации на чей склад поступают товары; установите на полосу отчёта HasTitle компонента QuickRep1 компонент QRLabel1, который находится на странице QREPORT палитры компонентов. В Инспекторе объектов свойству Caption назначьте значение "Информация о поступлении товаров за ". В Инспекторе объектов измените значения свойства Font, чтобы заголовок документа выделялся от основной информации; установите на полосу отчёта HasTitle компонента QuickRep1 компонент QRLabel2, который находится на странице QREPORT палитры компонентов. Дополните программный код кнопки «Печать» строчкой: установите на компонент QRStringsBand компонент QRExpr1, который находится на странице QREPORT палитры компонентов. В Инспекторе объектов свойству Expression назначьте значение QRStringsBand1; установите на полосу отчёта HasPageFooter компонента QuickRep1 компонент QRLabel3, который находится на странице QREPORT палитры компонентов. В Инспекторе объектов свойству Caption назначьте значение "Дата и время формирования документа"; установите на полосу отчёта HasPageFooter компонента QuickRep1 компонент QRSysData1, который находится на странице QREPORT палитры компонентов. В Инспекторе объектов свойству Data назначьте значение qrsDateTime; установите на полосу отчёта HasPageFooter компонента QuickRep1 компонент QRLabel4, который находится на странице QREPORT палитры компонентов. В Инспекторе объектов свойству Caption назначьте значение "Общее количество товаров:"; установите на полосу отчёта HasPageFooter компонента QuickRep1 компонент QRLabel5, который находится на странице QREPORT палитры компонентов. В программный код кнопки "ПЕЧАТЬ" допишите строку: тело процедуры-обработчик события "Нажатие кнопки ПЕЧАТЬ" дополните следующим программным кодом: ShowMessage (‘Поставки за выбранную дату отсутствуют!’); Exit ; // принудительный выход из процедуры
form10.QRStringsBand1.Items.Clear; form10.QRStringsBand1.Items.LoadFromFile("pechat.txt"); form10.QRExpr1.AutoSize:=false; form10.QRExpr1.AutoStretch:=true; form10.QRExpr1.Left:=0; form10.QRExpr1.Width:=form10.QRStringsBand1.Width; form10.QuickRep1.Preview; Добавьте к приложению новую форму (Form11). В Инспекторе объектов свойству Caption назначьте значение "Товарная карточка". Разместите на форме компоненты такие же как на форме «Добавление», но вместо компонентов dateTimePicker1, Combobox1 и Combobox2 используйте компоненты Edit3, Edit4 и Edit5, а кнопку «Сохранить» переименуйте в «Печать» В процедуру пункта меню «Печать документа
» напишите программный код: Form6.Show ; // вызов формы «Просмотр всех данных»
В Инспекторе объектов для компонента StringGrid1 формы «Просмотр всех данных» выберите событие OnDbLClick. Дополните процедуру программным кодом: If z
= 66
then Y:= StringGrid1.Row ; // определили номер текущей строки таблицы
Reset (F1) ; // открыли файл для чтения
Seek (F1, y – 1) ; // переместились в файле на запись с номером у-1
Read(F1, Tov) ; // считали из файла запись
CloseFile (F1) ; Form11.Edit5.text:= DateToStr(Tov.DateP) ; Form11.Edit4.text:= Tov.Tovar ; Form11.Edit3.text:= Tov.Postav ; Form11.Edit1.text:= FLoatToStr (Tov.Cena) ; Form11.Edit2.text:= intToStr (Tov.Kol) ; В Инспекторе объектов для кнопки «Печать» на Form11 выберите событие OnClick. Напишите в процедуре программный код: Form11.Print ; If Edit1.text = … then End ELSE ShowMessage (‘Пароль неверный ’) ; В Инспекторе объектов для кнопки «Найти» выберите событие OnClick. Напишите в процедуре программный код: Reset (F1) ; // открыли файл для чтения
While not eof(F1) do Read(F1, tov) ; // считали запись из типизированного файла
If (DateToStr (tov.DateP) = DateToStr (DateTimePicker1.date)) and (tov.Postav = Combobox1.text) then Form13. Label6. caption:= DateToStr (Tov.DateP) ; Form13. Label7. caption:= Tov.Tovar ; Form13. Label8. caption:= Tov.Postav ; Form13. Label9. caption:= FloatToStr (Tov.Cena) ; Form13. Label10. caption:= IntToStr (Tov.Kol) ; CloseFile (F1) ; If XX = 0 then ShowMessage (‘Данные отсутствуют… ‘) ;Копирование файлов с помощью .
CopyFile("путь до начального файла","Путь куда надо копировать",Перезаписывать или нет)
Во втором параметре тоже можно указывать относительный путь и там вы можете указать имя и расширение файла такое, какое захотите. Т.е. с помощью этой функции можно делать и переименовывание тоже.
Третий параметр отвечает за перезапись файла. Если мы укажем true, то файл не будет перезаписан, а если false, то программа перезапишет файл.Переименование файлов с помощью
RenameFile("путь до файла","новое имя");
Честно говоря, синтаксис этой функции меня не особо радует. В нем тоже в обоих параметрах надо указывать полный путь. Т.е. если мы, например, напишем такУдаление файлов с помощью
Работа с типизированными файлами в
Вначале нам нужно объявить переменную, где будут храниться данные из файла. Делается это так:
Например, f: file of string;
Reset(f);
{$I+}
Полный синтаксис:
Reset(f);
{$I+}
If IOresult <> 0 then <ваш код>
Для чтения файла служит функция Read(), в которой указываются два параметра: переменная файла и тип записи, в нашем случае это string. Синтаксис:
Read(f,String);
Вот и все. На этом урок закончен. До встречи на сайте!Разработка программного кода
procedure TForm1.doit();
f1, f2: file of Byte;
//Работа с первым и вторым файлом
сор: Byte;
//Для побайтового копирования
sizez: LongInt;
//Хранит размер файла
{$I-}
//Отключаем директиву, которая отслеживает ошибки
try
//Начало блока обработки исключений
//Связываем файловую переменную f1 с первым файлом
AssignFile(f1, from.Text)
;
//Связываем файловую переменную f2 со вторым файлом
AssignFile(f2, where.Text);
Reset(f1)
; //Открываем первый файл на чтение
sizez:= Trunc(FileSize(f1)
); //Определяем размер файла
//Отображаем размер файла для пользователя
Label4.Caption:= IntToStr(sizez div 1024) + "Кб";
begin
//Пока не достигнут конец первого файла
//Считываем один байт из первого файла
BlockRead(fl, cop, 1)
;
//Записываем один байт во второй файл
BlockWrite(f2, cop, 1);
CloseFile(f1)
; //Закрываем первый файл
CloseFile(f2)
; //Закрываем второй файл
end;
//Конец блока обработки исключений
if IOResult<> 0
//Если возникла ошибка ввода-вывода
then MessageDlg("Ошибка при копировании файла!", mtError, ,0)
//сообщение об ошибке
{Если ошибок не было, то выводим окно об успешном окончании копирования}
ShowMessage("Успешно скопировано!
");
procedure TForm1.Button1Click{Sender: TObject);
doit;
//копируем
DeleteFile(from.Text)
; //удаляем исходный файл
then from.Text:= Open1.FileName
then where.Text:= Save1.FileName
else ShowMessage("Вы не выбрали место длясохранения файла!");
then Del.Text:= Open1.FileName
else ShowMessage("Файл не был открыт!");
procedure TForm1.Button6Click(Sender: tobject);
DeleteFile(Del.Text);
//удаляем файл
if not FileExists(Del.Text)
//проверяем существование файла
then ShowMessage("Файл удален!");
//выводим сообщение
Полный исходный код модуля
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI, Gauges;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure doit; //объявление процедуры doit
f1, f2: file of byte; //работа с первым и вторым файлом
сор: byte; //для побайтового копирования
sizez: longint; //хранит размер файла
{I-} {отключаем директиву, которая следит за ошибками ввода/вывода}
//связываем Файловую переменную f1 с первым файлом
//связываем файловую переменную f2 со вторым файлом
Reset(f1); //открываем первый файл на чтение
sizez:= Trunc(FileSize(f1)); //узнаем размер файла
//Отображаем размер файл для пользователя}
Label4.Caption:= IntToStr(sizez div 1024) + "Кб’;
{Создаем второй файл или перезаписываем его, если он уже существует}
while not Eof(f1) do begin //пока не достигнут конец первого файла
//считываем один байт с первого файла
//записываем один байт во второй файл
CloseFile(f1);//закрываем первый файл
CloseFile(f2);// закрываем второй файл
if IOResult <> 0 //Если возникла ошибка ввода-вывода
then MessageDlg("Ошибка при копировании файла!", mtError, , 0) //сообщение об ошибке
{если ошибок не было, то выводим окно об успешном окончании копирования}
ShowMessage("Успешно скопировано!");
procedure TForm1.ButtonlClick(Sender: TObject);
procedure TForm1.Button2Click(Sender: TObject);
if Open1.Execute then from.Text:= Open1.FileName
else ShowMessage("Файл не был открыт");
procedure TForm1.Button3Click(Sender: TObject);
if Save1.Execute then where.Text:= Save1.FileName
else ShowMessage(""Вы не выбрали место для сохранения файла!");
procedure TForm1.Button5Click(Sender: TObject);
DeleteFile(from.Text); //удаляем исходный файл
procedure TForm1.Button4Click(Sender: TObject);
if Open1.Execute then del.Text:= Open1.FileName
else ShowMessage("Файл не был выбран");
procedure TForm1.Button6Click(Sender: TObject);
DeleteFile(del.Text); //удаляем файл
then //проверяем существование файла
//выводим сообщение об успешном удалении
ShowMessage("Файл удален!");
- картинку, соответствующую предметной области задачи;
- инструментальную панель (компонент ToolBar) и вынесите не неё несколько кнопок SpeedButton, дублирующих некоторые пункты главного меню.
Align = alClient
Picture - файл с картинкой
// типизированного файла
Form3.Show;
Form4.Show;
StringGrid1.visible:= false ;
В Инспекторе объектов для формы «Корректировка данных» выберите событие OnActivate. Напишите в процедуре программный код:
Z:= 44; //
// «Корректировка»
Z:= 55; // признак того, что мы открыли форму «Просмотр» из пункта меню
// «Удаление»
текстовый файл
выходном документе;
Form10.QRLabel2.Caption:= D ;
Form10.QRLabel5.Caption:= intToStr (k1);
Z:= 66; // признак того, что мы открыли форму «Просмотр» из пункта меню
// «Печать документа»
