| Описание |
Ключевое слово Implementation начинает активный раздел кода модуля - где объявления интерфейса реализовываются.
Модуль Delphi кажется внешним от его объявлений в разделе Interface. Внутренне, они реализованы в разделе Implementation. Только изменения в секции интерфейс вызовут перекомпиляцию внешних модулей.
В пределах раздела Implementation, функции и процедуры, определенные в разделе Interface закодированы. Этот раздел может иметь свои собственные функции, процедуры и данные к тем, что уже определенны в Interface. Они являются частными по отношению к модулю.
Он может также иметь свой собственный раздел Uses, где модули определяются как используемые только в секции Implementation. Они определены к выполнению в данном модуле, и внешние пользователи модуля не должны знать о них.
|
|
| Похожие команды |
Const Начинает определение данных с установленными значениями
Function Определяет подпрограмму, которая возвращает значение
Interface Используется для внешних определений модуля, и как скелет класса
Procedure Определяет подпрограмму, которая не возвращает значение
Type Определяет новую категорию переменной или процесса
Unit
Uses Объявляет список модулей (Units), которые будут импортированы
Var Начинает раздела определения переменных
| |
|
| Пример кода : Простой пример |
// Весь код модуля.
// -----------------------------------------------------------
// Вы должны поместить этот код в модуль называемый Unit1 с формой
// называемой Form1 которая имеет событие OnCreate названное FormCreate.
unit Unit1;
interface // Определяет внешнюю видимость этого модуля
uses
Forms;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
Implementation // Осуществляет Интерфейс этого модуля
{$R *.dfm} // Включить определения формы
uses // Частные модули
Dialogs;
var // Частные переменные
msg : string;
const // Частные константы
MSG_TEXT = 'Hello World';
// Частная подпрограмма - не предопределенный в разделе Интерфейса
procedure SayHello;
begin
// Скажем привет Миру
msg := MSG_TEXT;
ShowMessage(msg);
end;
// Подпрограмма, предопределенная в разделе Интерфейса
procedure TForm1.FormCreate(Sender: TObject);
begin
// Сказать привет
SayHello;
end;
end.
|
Hello World
|
|
