ВУЗ:
Составители:
Рубрика:
1: program Button;
2:
3: uses
4: Forms,
5: Ubutton in 'UBUTTON.PAS' {Form1};
6:
7: {$R *.RES}
8:
9: begin
10: Application.Initialize;
11: Application.CreateForm(TForm1, Form1);
12: Application.Run;
13: end.
______________________________________________________________
Листинг 1. Исходный текст для программы BUTTON.DPR.
Строка 1 содержит ключевое слово program, которое сообщает компилятору, что
это основная часть программы. Если создаётся библиотека DLL, вместо него
используется слово library, если новый пакет – слово package. Строки 4 и 5 определяют
имена двух использованных библиотечных модулей. Строка 4 определяет модуль
Forms, который поддерживает формы. Строка 5 определяет модуль Ubutton и
указывает, что этот модуль хранится в файле UBUTTON.PAS.
Строка 7 содержит директиву. Директивы - специальные команды компилятору,
которые включены в комментарии, но начинающиеся со знака $, за которым следует
имя директивы. Строки между ключевыми словами begin и end содержат операторы
основной программы: строка 10 содержит обращение к методу Initialize, который
предусмотрен “на всякий случай” и по умолчанию ничего не делает [3]; строка 11
содержит оператор, который создаёт форму, а строка 12 содержит оператор, который
запускает программу.
2.2 Модули, поддерживающие формы
Для того, чтобы поддерживать форму, Delphi использует модули Паскаля.
Рассмотрим листинг 2 , который показывает исходный текст для модуля
UBUTTON.PAS.
______________________________________________________________
1: unit Ubutton;
2:
3: interface
4:
5: uses
6: Windows, SysUtils, , Messages, Variants, Classes, Graphics, Controls,
7: Forms, Dialogs, StdCtrls, Buttons;
8:
9: type
10: TForm1 = class(TForm)
11: CloseBtn: TBitBtn;
12: procedure CloseBtnClick(Sender: TObject);
13: private
Страницы
- « первая
- ‹ предыдущая
- …
- 6
- 7
- 8
- 9
- 10
- …
- следующая ›
- последняя »