Unit UnitName; Interface Declarations... Implementation Declarations... End;
Описание
Ключевое слово Implementation начинает активный раздел кода модуля - где объявления интерфейса реализовываются.
Модуль Delphi кажется внешним от его объявлений в разделе Interface. Внутренне, они реализованы в разделе Implementation. Только изменения в секции интерфейс вызовут перекомпиляцию внешних модулей.
В пределах раздела Implementation, функции и процедуры, определенные в разделе Interface закодированы. Этот раздел может иметь свои собственные функции, процедуры и данные к тем, что уже определенны в Interface. Они являются частными по отношению к модулю.
Он может также иметь свой собственный раздел Uses, где модули определяются как используемые только в секции Implementation. Они определены к выполнению в данном модуле, и внешние пользователи модуля не должны знать о них.
Похожие команды
Const Начинает определение данных с установленными значениями
Function Определяет подпрограмму, которая возвращает значение
Interface Используется для внешних определений модуля, и как скелет класса
Procedure Определяет подпрограмму, которая не возвращает значение
Type Определяет новую категорию переменной или процесса
Unit
Uses Объявляет список модулей (Units), которые будут импортированы
// Весь код модуля. // ----------------------------------------------------------- // Вы должны поместить этот код в модуль называемый 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.