Выполнение задания на работу. Для реализации проекта а) задания на работу необходимо создать форму, показанную на рисунке 40.

Для реализации проекта а) задания на работу необходимо создать форму, показанную на рисунке 40.

Рисунок 40 – Форма «Запись и считывание текста»

Далее следует прописать код, в соответствии с которым осуществляется работа программы. Примерный код программы показан на рисунке 41.

Рисунок 41 – Примерный код программы проекта

В предложенном коде:

var f:textfile – описание файла текстового типа;

a,b,c,d:string – описание переменных строкового (безразмерного) типа;

i,j:real – описание переменных вещественного типа;

a:='Сумма переменных = ' – присвоение переменной а строки;

b:='Произведение переменных = '– присвоение переменной b строки;

i:=strtofloat(edit1.Text)+strtofloat(edit2.Text) – присвоение переменной i значения, равного сумме чисел, хранящихся в компонентах edit1 и edit2. Причем тот текст, который вводится в компоненты edit1 и edit2 переведен в число (компонента edit предназначена для работы с текстом). Запись strtofloat – расшифровывается как строковый тип (str) в (to) число (float);

j:=strtofloat(edit1.Text)*strtofloat(edit2.Text) – присвоение переменной j значения, равного произведению чисел, хранящихся в компонентах edit1 и edit2;

c:=a+floattostr(i)+#13+b+floattostr(j) – присвоение переменной c совокупности значений, хранящихся в переменных a, b, i, j. Такой подход упрощает процедуру записи в файл. В файл будет записана переменная d; Символ #13 означает переход на новую строку.

assignfile(f,'laba2.txt') – создание файла и именем laba и расширением txt;

rewrite(f) – открытие файла для записи;

write(f,c) – запись в файл значения переменной с;

closefile(F) – закрытие файла;

d:='laba2.txt'– присвоение переменной d значения имени файла. При отсутствии указанного пути файл сохранится в текущем каталоге.

memo1.Lines.LoadFromFile(d) – вывод в компонент TMemo содержимого из файла. В скобках указан параметр – переменная d – путь к файлу.

После написания кода необходимо сохранить проект и убедиться в существовании текстового файла. Содержимое текстового файла рекомендуется просмотреть при помощи двух программ: Блокнот и Word.

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

Рисунок 42а – Открытие созданного файла с помощью программы Блокнот

Рисунок 42б – Открытие созданного файла с помощью программы Word

Для реализации проекта б) задания на работу необходимо создать форму, например, такую, как показано на рисунке 43. Название формы – «Работа с текстом».

Рисунок 43 – Форма «Работа с текстом»

На рисунке 44 представлена форма, содержащая такие компоненты палитры инструментов Стандартные (Standard) как TMemo1, Edit1, Button1 (кнопка Сохранить), Button2 (кнопка Открыть).

Относительно компонента Edit1 в Инспекторе объектов установите свойство (Properties) Text. В этом свойстве прописывается имя (c расширением) и путь будущего файла (рисунок 44). На рисунке 44 прописано только имя файла, следовательно, файл будет сохранен в текущем каталоге. Расширение файла.*prg. Выбранное расширение позволит не менять кодировки Windows при открытии файла.

Рисунок 44 – Ввод имени (с расширением) файла

Также на форму «Работа с текстом» вынесен компонент палитры инструментов Dialogs – TOpenDialog. При запуске программы компонент ТOpenDialog виден не будет. Компонент ТOpenDialog необходим для того, чтобы при открытии созданного текстового файла открывалось стандартное окно с существующими каталогами (по аналогии, например, папки Мои документы операционной системы Windows).

Относительно компонента ТOpenDialog в Инспекторе объектов (Object Inspector) установлен фильтр (рисунок 45).

Рисунок 45 – Установление фильтра относительно компонента ТOpenDialog

Установка фильтра означает то, что при открытии стандартного окна с существующими каталогами будут показаны только файлы, имеющие указанное в фильтре расширение (с целью более оперативного поиска нужного файла). В данном примере текстовый файл имеет расширение.*prg – на это расширение и устанавливается фильтр.

В процедуре Button1Click (кнопка Сохранить) следует прописать код, представленный на рисунке 46.

Рисунок 46 – Код программы, прописанный в процедуре Button1Click

Код программы, представленный на рисунке 45, означает:

var f:tfilestream – описание файловой переменной универсального типа.

f:=tfilestream.create(edit1.Text,fmcreate) – создание файла вышеуказанного типа, имя которого будет прописано в компоненте Edit1. В компоненте Edit1 можно также указать путь файла. Если путь не указан, то файл создается в текущем каталоге.

f.Free – закрытие созданного файла. При таком построении кода оперативная память ПК полностью высвобождается от функций по «держанию в открытом состоянии созданного файла».

memo1.Lines.SaveToFile(edit1.Text) – сохранение текста, вносимого в компонент TMemo, в созданный файл.

В процедуре Button2Click (кнопка Открыть) следует прописать код, представленный на рисунке 47.

Рисунок 47 – Код программы, прописанный в процедуре Button2Click

Код программы, представленный на рисунке 46, означает:

var a:string – описание переменной строкового типа (безразмерная строка);

opendialog1.Execute () – открытие стандартного окна с папками с целью последующего открытия нужного файла.

a:=opendialog1.FileName – присваивание переменной а значения пути к файлу, который следует открыть.

memo1.Lines.LoadFromFile(a) – загрузка данных из файла в объект TMemo1.

После написания кода откомпилируйте и сохраните проект.

На рисунке 48 показано стандартное окно для выбора созданного файла при его открытии. Здесь же показано несколько созданных файлов различного содержания, имеющих в соответствии с установленным фильтром расширение.*prg.

Рисунок 48 – Стандартное окно для выбора файла с целью его открытия[12]

Для реализации проекта в) необходимо создать форму, представленную на рисунке 49. Название формы – «Запись в текстовый файл».

Рисунок 49 – Форма «Запись в текстовый файл»

В процедуре Button1Click (кнопка Запись) следует прописать код, представленный на рисунке 50.

Рисунок 50 – Код программы в соответствии с пунктом задания в)

После осуществления указанных действий требуется откомпилировать и сохранить проект, а также убедиться в существовании созданного файла, просмотрев его содержимое с помощью подходящих программ.

Контрольные вопросы

1 Для чего предназначены текстовые файлы? Какую информацию они содержат?

2 Какое расширение имеют текстовые файлы?

3 Какие процедуры в системе Delphi осуществляют ввод/вывод данных при работе с текстовым файлом?

4 Как в системе Delphi создать текстовый файл?

5 Как в системе Delphi открыть текстовый файл?

6 Какая процедура в системе Delphi не стирает информацию из файла при открытии его для записи?

7 Какая процедура используется для печати текстового файла?

8 Какая процедура используется для удаления текстового файла? Можно ли эту процедуру использовать для удаления файлов пользовательского типа и нетипизированных файлов?

9 Какая процедура позволяет подсчитывать количество строк в текстовом файле?

10 Как организовать цикл при подсчете количества строк в текстовом файле?

11 Что представляет собой универсальный тип данных? Может ли он содержать текст? Целые и вещественные значения данных?

12 Какой компонент обеспечивает открытие стандартного окна для выбора файла? На какой палитре компонентов он располагается?

13 Для чего устанавливается фильтр в отношении компонента, позволяющего открывать окно, содержащее каталоги?

14 Может ли файл, содержащий текст, иметь расширение, отличное от расширения txt?

15 Каким образом программа распознает путь к файлу, который требуется открыть?

16 Всегда ли требуется прописывать в коде полный путь файла? Что происходит с файлом, если его полный путь не прописан?

17 Для чего и в каких случаях значения переменных следует переводить из строкового типа в числовой?

18 Что означает символ #13?

19 С помощью каких программ можно просматривать текстовые файлы?

20 В чем заключается прогрессивные методы записи в файл текстовой информации?

Не нашли, что искали? Воспользуйтесь поиском: