Основы языка Delphi


Процедуры и функции


Листинг 6 1 Пересчет веса из фунтов в килограммы
Листинг 6.1. Пересчет веса из фунтов в килограммы unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = c...
Листинг 6 2 Пересчет веса из фунтов
Листинг 6.2. Пересчет веса из фунтов в килограммы (использование процедуры) unit Onit1; interface uses Windows, Messages, SysUtils, Variants,Classes, Graphics, Controls, Forms, Dialogs, S...
Использование модуля
Использование модуля Для того чтобы в программе могли применяться функции и процедуры модуля, программист должен добавить этот модуль к проекту и указать имя модуля в списке используемых модул...
Листинг 6 9 Использование функции из модуля программиста
Листинг 6.9. Использование функции из модуля программиста unit fazenda_; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, my_uni...
Структура проекта отражается в окне Project Manager
Рисунок 6.3. Структура проекта отражается в окне Project Manager После добавления модуля к проекту и включения его имени в список используемых модулей (инструкция uses) можно выполнить компил...
Функция
Функция Функция — это подпрограмма, т. е. последовательность инструкций, имеющая имя. Процесс перехода к инструкциям функции называется вызовом функции или обращением к функции. Процесс перех...
Объявление функции
Объявление функции Объявление функции в общем виде выглядит так: function Имя (параметр1 : тип1, ..., параметрК : типК) : Тип; var // здесь объявления локальных переменных begin // здесь...
Листинг 6 3 Примеры функций
Листинг 6.3. Примеры функций // проверяет, является ли символ допустимым // во время ввода целого числа function Islnt(ch : char) : Boolean; begin if (ch >= '0'} and (ch <= '9') /...
Использование функции
Использование функции Если вы собираетесь использовать в программе свою функцию, то в простейшем случае ее объявление следует поместить в текст программы, перед подпрограммой, которая применяе...
Окно программы Поездка на дачу
Рисунок 6.1. Окно программы Поездка на дачу Следующая программа (ее текст приведен в листинге 6.4, а вид диалогового окна на Рисунок 6.1) вычисляет стоимость поездки на дачу. Исходными данными...
Листинг 6 4 Пример использования функций программиста
Листинг 6.4. Пример использования функций программиста unit fazenda_; interface Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1...
Процедура
Процедура Процедура — это разновидность подпрограммы. Обычно подпрограмма реализуется как процедура в двух случаях: когда подпрограмма не возвращает в основную программу никаких данных. Напр...
Объявление процедуры
Объявление процедуры В общем виде объявление процедуры выглядит так: procedure Имя (var параметр1: тип1; ... var параметрК: типК) ; var // здесь объявление локальных переменных begin // зд...
Листинг 6 5 Процедура SgRoot
Листинг 6.5. Процедура SgRoot // решает квадратное уравнение procedure SqRoot(a,b,c : real; var xl,x2 : real; var ok : boolean); { a,b,c — коэффициенты уравнения x1,x2 — корни уравнения o...
Использование процедуры
Использование процедуры Разработанную процедуру нужно поместить в раздел implementation, перед подпрограммой, которая использует эту процедуру. Инструкция вызова процедуры в общем виде выгля...
Окно программы Квадратное уравнение
Рисунок 6.2. Окно программы Квадратное уравнение...
Листинг 6 6 Решение квадратного
Листинг 6.6. Решение квадратного уравнения (использование процедуры) unit SqRoot_; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrl...
Повторное использование функций и процедур
Повторное использование функций и процедур Разработав некоторую функцию, программист может использовать ее в другой программе, поместив текст этой функции в раздел implementation. Однако этот...
Создание модуля
Создание модуля Delphi позволяет программисту поместить свои функции и процедуры в отдельный модуль, а затем использовать процедуры и функции модуля в своих программах, указав имя модуля в спи...
Листинг 6 7 Шаблон модуля
Листинг 6.7. Шаблон модуля unit Unit1; interface implementation end. Начинается модуль заголовком — инструкцией unit, в которой указано имя модуля. Во время сохранения модуля это имя будет...
Листинг 6 8 Модуль программиста
Листинг 6.8. Модуль программиста unit my__unit; interface // объявления процедур и функций, // доступных программам, // использующим этот модуль function IsInt(ch : char) : Boolean;...








Начало