BPL文件的编写。

原创于 2004-11-24 14:59:00 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#initialization #string #application #forms #interface #windows

DEPHI学习专栏收录该内容

4 篇文章

订阅专栏

博客展示了一个Windows窗体应用的代码，包含接口部分引用多个单元，定义了窗体类和字符串变量。有输出部分导出函数和变量，实现了显示消息的功能。还有注册部分对窗体类进行注册，使应用能创建该窗体实例。

1：结构
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
    Label1: TLabel;
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
g_HelloStr: string = 'Hello, I am Michael!';

procedure SayHello(msg: string);
//***************************************
exports //输出部分
SayHello,
g_HelloStr;
//***************************************
implementation

{$R *.DFM}

procedure SayHello(msg: string);
begin
ShowMessage(msg);
end;

{ The following call Registers the addin with the application. Once
this occurs the application can create instances of this form. }
//*******************************************************
initialization //注册部分
RegisterClass(TForm1);
//*******************************************************
end.