Delphi: программирование в примерах и задачах. Практикум

СРЕДНЕЕ
ПРОФЕССИОНАЛЬНОЕ
ОБРАЗОВАНИЕ 
Г.М. ЭЙДЛИНА, К.А. МИЛОРАДОВ
DELPHI:
ПРОГРАММИРОВАНИЕ 
В ПРИМЕРАХ И ЗАДАЧАХ
УЧЕБНОЕ  ПОСОБИЕ
ВТОРОЕ  ИЗДАНИЕ
Москва
РИОР
ИНФРА-М

УДК 681.3.068+800.92(075.32)
ББК 32.973.26-0.18я73
 
Э11
А в т о р ы :
Эйдлина Г.М. — канд. экон. наук, доцент, доцент кафедры информатики, Российский экономический университет имени Г.В. Плеханова (Москва). Автор 
более 60 печатных работ, в том числе четырех учебных пособий, по проблемам 
программирования, информационных технологий и их использования в сфере образования;
Милорадов К.А. — канд. экон. наук, доцент, доцент кафедры информатики, 
Российский экономический университет имени Г.В. Плеханова (Москва)
Р е ц е н з е н т :
Волков А.К. — канд. техн. наук, профессор, Российский экономический университет имени Г.В. Плеханова (Москва).
Эйдлина Г.М., Милорадов К.А.
Э11	
         Delphi: программирование в примерах и задачах. Практикум : учебное 
пособие / Г.М. Эйдлина, К.А. Милорадов. — 2-е изд. — Москва : РИОР : 
ИНФРАМ, 2024. — 138 с. — (Среднее профессиональное образование). 
ISBN 978-5-369-01762-3 (РИОР)
ISBN 978-5-16-013864-0 (ИНФРА-М)
Учебное пособие предназначено для изучения основ объектно-ориентированного программирования. Излагаются основные приемы разработки 
программного обеспечения с помощью Delphi. Рассмотрены примеры разработки интерактивных Windows-приложений и приложений баз данных. 
Приводятся задачи и упражнения для самостоятельной работы.
УДК 81.3.068+800.92(075.32)
ББК 32.973.26-0.18я73
ISBN 978-5-369-01762-3 (РИОР)
ISBN 978-5-16-013864-0 (ИНФРА-М)
© Эйдлина Г.М., 
     Милорадов К.А.

ВВЕДЕНИЕ 
Современные тенденции развития мировой экономики в направлении расширения использования «цифровых» технологий повышают востребованность специалистов, владеющих алгоритмами обработки данных и инструментами разработки программного обеспечения и информационных сервисов. 
Усложнение информационных технологий требует последовательности в подготовки специалистов, постепенного формирования 
у студентов и слушателей базы профессиональных знаний и навыков 
путем продвижения от более простых к более сложным понятиям, 
методам и технологиям программирования. 
Учебное пособие предназначено для читателей, начинающих 
изучение основ программирования, и содержит апробированные в 
учебном процессе задания разного уровня сложности. 
Язык программирования Object Pascal и его различные диалекты 
остаются одними из наиболее распространенных в сфере образования. Задания, предлагаемые в данном пособии, содержат набор задач, предназначенных для отработки основных приемов программирования. Примеры программ были написаны на Delphi 7 (Borland), 
многие программы можно выполнять в среде Delphi 10 (Embarcadero). 
Практикум состоит из семи разделов. В первом разделе изложен 
теоретический материал, дано описание системы программирования 
Delphi, структуры программного проекта в Delphi. 
В втором разделе практикума приведены лабораторные работы, 
нацеленные на изучение языка программирования Delphi и приемов 
разработки интерактивных Windows-приложений с использованием 
стандартных компонентов VCL, и методические указания к их выполнению. 
В третьем разделе практикума приведены лабораторные работы, 
ориентированные на изучение приемов разработки приложений для 
работы с базами данных, и методические указания к их выполнению. 
После выполнения лабораторных работ рекомендуется ответить 
на контрольные вопросы.  
Четвертый раздел практикума содержит задачи и упражнения для 
самостоятельной работы. 
Пятый раздел практикума содержит примеры программ для выполнения упражнений из раздела 4. 
Шестой раздел практикума содержит примерную тематику курсовых работ. 
3 

В седьмом разделе практикума приведены примеры программ, 
являющихся частью курсовых работ. 
Список литературы содержит перечень книг, успешно зарекомендовавших себя в учебном процессе. Важным источником знаний 
для программистов является Интернет. Перечисленные в практикуме 
интернет-ресурсы окажутся полезными программистам с разным 
уровнем подготовки. Не следует забывать и о таком важном источнике информации для программиста, как электронная справочная 
система Delphi. 
В тексте практикума даются общепринятая терминология и обозначения. Для обозначения клавиш, названий команд меню и кнопок 
используется полужирный шрифт. Данные, задаваемые пользователем, выделены курсивом. Следует обратить внимание, что в некоторых листингах исходный код на языке программирования Delphi 
может не умещаться на одной строке. 
Изучение пособия позволит студенту получить и закрепить следующие профессиональные компетенции, соответствующие ФГОС 
09.02.03 Программирование в компьютерных системах»: 
–
ПК 1.1 — выполнять разработку спецификаций отдельных
компонент;
–
ПК 1.3 — выполнять отладку программных модулей с использованием специализированных программных средств;
–
ПК 1.4 — выполнять тестирование программных модулей.

1. СИСТЕМА ПРОГРАММИРОВАНИЯ DELPHI
Рис. 1.1. Вид окна Delphi после запуска 
Процесс создания программы в среде Delphi разбивается на две 
фазы: фазу конструирования формы и фазу кодирования. 
Конструирование формы осуществляется с помощью выбора 
компонентов из палитры и размещения их на форме. 
Программист может перемещать любой размещенный на форме 
компонент и изменять его размеры с помощью мыши. Чтобы придать компоненту нужные свойства, используется страница Properties 
Инспектора объектов. Небольшой знак «+» слева от названия свойства указывает, что данное свойство имеет подсвойства. При двойном щелчке на таком свойстве открывается и закрывается список 
этих подсвойств. Кнопка подстановки, расположенная справа от 
значения свойства, указывает, что при двойном щелчке на значении 
или самой кнопке можно открыть диалоговое окно, позволяющее 
изменить значение свойства. Некоторые свойства имеют и подсвойства, и кнопки подстановки. 
5 

Чтобы компонент мог откликаться на то или иное событие, программист должен создать обработчик события и указать его имя на 
странице Events Инспектора объектов. 
События определяют действия объекта во время работы программы. При двойном щелчке на значении события в исходный код 
программы будет вставлена заготовка обработчика события. Обработчик события оформляется в виде процедуры, имеющей составное 
имя. Первая часть имени представляет собой имя класса для формы, 
вторая часть отделяется от первой точкой и может быть произвольной. Если Delphi автоматически формирует заготовку для обработчика, то вторая часть имени представляет собой объединение имени 
компонента и имени события без предлога ON. 
Тело процедуры ограничено словами begin … end и состоит из 
отдельных предложений (операторов) языка Delphi. В конце каждого 
предложения ставится точка с запятой. 
Свойства компонента могут изменяться внутри работающей программы. 
Формы 
Каждый проект обладает, по меньшей мере, одной формой, являющейся главным окном программы. Но проекты могут иметь несколько форм. 
Форма является компонентом, но она не присутствует в палитре 
компонентов. Форма создается при выполнении нового проекта или 
команды File — New Form. 
Для каждой формы имеется соответствующий модуль, содержащий код формы. Значение свойства Name и имя файла модуля формы должны различаться. (Совет: для Name используйте имена, подобные EntryFrm, а для файла модуля — Entry.pas). 
Форма — это не просто реализация окна программы. Она обладает свойствами и событиями, которые можно программировать для 
определения характеристик окна и выполнения действий. 
Шаблоны форм полезны для создания часто используемых экранных форм, прототипов и демонстрационных программ. Вы можете выбрать один из готовых шаблонов форм или образовать собственный. 
Любую форму можно сделать главным окном приложения. 
Например, в качестве простого и ясного интерфейса приложения, 
не требующего полосы меню, можно использовать диалоговое 
окно. 
Событие OnCloseQuery удобно для подтверждения закрытия окна или отказа от него. Употребляйте данное событие для предотвращения потери данных. 
6 

Для того чтобы окно оставалось на переднем плане (поверх других окон приложения), свойству FormStyle формы данного окна 
присвойте значение fsStayOnTop. Это можно сделать в окне Object 
Inspector или во время работы программы. 
Обычно Delphi автоматически создает экземпляры всех форм во 
время запуска программы. В больших приложениях это сказывается 
на памяти и других ресурсах. Имя формы следует удалять из списка 
автосоздания (Auto-create forms), чтобы рационально использовать 
память. Выберите View — Project Manager — Options — Forms — 
SplashForm и щелкните на кнопке с изображением направленной 
вправо стрелки, чтобы перевести данную форму в Available forms.  
Структура программ Delphi 
Любая программа в Delphi состоит из файла проекта (.DPR) и одного или нескольких модулей, содержащих исходный текст программы (файлы с расширением .PAS). Каждый из таких файлов описывает программную единицу Object Pascal. В состав проекта также 
входят различные файлы ресурсов, например файлы с расширением 
RES. Поэтому перед созданием нового приложения следует создавать отдельную папку и все файлы проекта сохранять в отдельной 
папке. 
Структура проекта 
Файл проекта представляет собой программу, написанную на 
языке Object Pascal и предназначенную для обработки компилятором. Эта программа автоматически создается Delphi и содержит 
лишь несколько строк. Чтобы увидеть их, запустите Delphi и щелкните по опции View — Project Source главного меню. Delphi покажет окно кода с закладкой Project1, содержащее такой текст: 
Program Project1; 
Uses 
     Forms, 
     Unit1 in 'Unit1.pas' {fmExample}; 
{$R *.res} 
begin 
     Application.Initialize;  
     Application.CreateForm (TfmExample, fmExample); 
     Application.Run; 
End. 
В окне кода жирным шрифтом выделяются так называемые зарезервированные слова. 
7 

Комментарии в Object Pascal ограничиваются следующими символами: 
(*…*) 
{…} 
//, — указывают, что комментарий располагается за ними и продолжается до конца текущей строки. 
Модуль Forms является стандартным, а модуль Unit1 — новым, 
ранее неизвестным, и Delphi в этом случае указывает также имя 
файла с текстом модуля. 
В теле программы — три исполняемых оператора, каждый из них 
реализует обращение к одному из методов объекта Application. 
Объекты 
Объектом называется специальным образом оформленный фрагмент программы, заключающий в себе данные и подпрограммы для 
их обработки. Данные называются полями объекта, а подпрограммы — его методами. Объект в целом предназначен для решения какой-либо конкретной задачи и воспринимается в программе как неделимое целое. Объекты придуманы для того, чтобы увеличить производительность труда программиста и одновременно повысить качество разрабатываемых им программ. Два главных свойства объекта — функциональность и неделимость — делают его самостоятельной или даже самодостаточной частью программы и позволяют легко переносить объект из одной программы в другую. Разработчики 
Delphi придумали сотни объектов, которые можно рассматривать 
как кирпичики, из которых программист строит многоэтажное здание программы. Такой принцип построения программ называется 
ООП (объектно-ориентированное программирование). 
В объекте Application собраны данные и подпрограммы, необходимые для нормального функционирования Windows-программы в 
целом. Delphi автоматически создает объект-программу Application 
для каждого нового проекта. С помощью его метода Initialize программа осуществляет ряд вспомогательных действий, необходимых 
для работы под управлением операционной системы Windows. 
Строка Application.Initialize; означает обращение к методу 
Initialize объекта Application. 
Метод CreateForm объекта Application создает и показывает на 
экране окно главной формы, а метод Run реализует бесконечный 
цикл получения и обработки поступающих от Windows сообщений о 
действиях пользователя. Когда пользователь щелкнет по кнопке 
Close, Windows передаст программе специальное сообщение, которое заставит программу прекратить работу и освободить назначенные ей системные ресурсы (память и процессор). 
8 

Файл проекта полностью формируется самой Delphi и не предназначен для редактирования. 
Структура модуля 
Модули — это программные единицы, предназначенные для размещения фрагментов программ. С помощью содержащегося в них 
программного кода реализуется вся поведенческая сторона программы. Любой модуль имеет следующую структуру: 
Заголовок 
Секция интерфейсных объявлений 
Секция реализаций 
Терминатор (это end.) 
Следующий фрагмент программы является синтаксически правильным вариантом модуля: 
Unit Unit1; 
Interface 
// Секция интерфейсных объявлений 
implementation 
// Секция реализаций 
begin 
// Секция инициации 
end. 
В секции интерфейсных объявлений описываются типы, классы, 
процедуры и функции, которые будут «видны» другим программным модулям, а в секции реализаций раскрывается механизм работы 
этих элементов. Разделение модуля на две секции обеспечивает 
удобный механизм обмена алгоритмами между отдельными частями 
одной программы. Он также реализует средство обмена программными разработками между отдельными программистами. Получив 
«посторонний» модуль, программист получает доступ только к его 
интерфейсной части, в которой содержатся объявления элементов. 
Детали реализации объявленных процедур, функций, классов скрыты в секции реализаций и недоступны другим модулям. 
Секция инициации используется крайне редко и обычно опускается вместе с открывающим ее словом begin. Если щелкнуть по закладке Unit1 окна кода, то увидите такой текст: 
Unit Unit1; 
Interface 
Uses 
   Windows, Messages, SysUnils, Classes, Graphics, Controls, Forms, 
   Dialogs, StdCtrls, Buttons, ExtCtrls; 
9 

Type 
   TfmExample1 = class (TForm) 
 Panel1: TPanel1; 
 Panel2: TPanel2; 
 EdInput: TEdit; 
 LbOutput: TLabel; 
 MmOutput: TMemo; 
 BbRun: TBitBth; 
 BbClose: TBitBth; 
Private 
{ Private declarations} 
public 
{ public declarations} 
end; 
var 
   fmExample1: TfmExample1; 
implementation 
{$R *.DFM} 
end. 
Весь этот текст сформирован Delphi, но в отличие от файла проекта программист может его изменять, придавая программе нужную 
функциональность. 
В интерфейсной секции описан один тип (класс TfmExample1) и 
один объект (переменная fmExample1). 
Вот описание класса: 
Type 
   TfmExample1 = class (TForm) 
Panel1: TPanel1; 
 Panel2: TPanel2; 
 EdInput: TEdit; 
 LbOutput: TLabel; 
 MmOutput: TMemo; 
 BbRun: TBitBth; 
 BbClose: TBitBth; 
Private 
{ Private declarations} 
public 
{ public declarations} 
end; 
10