upkclass.pas

来自「如何从package中动态载入自定义类、窗体、ADO数据连接等」· PAS 代码 · 共 27 行

unit upkClass;

interface

uses
  upkClassIntr, Dialogs, Classes;

type
  TMan = class(TComponent, IMan)
    procedure SayHello(s: string);
  end;

implementation

{ TMan }

procedure TMan.SayHello(s: string);
begin
  showmessage(s);
end;

initialization
  RegisterClass(TMan);
finalization
  UnRegisterClass(TMan);
end.