Plugin-System

[mmw]

Hallo,

so sollte es funktionieren

Delphi-Quellcode:

type
  TkPlugInManager = class(TComponent)
  private
    FPlugins:TkPlugin;
    FVersion:String;
  protected
    function GetPlugins(indx:Integer): TkPlugin;
    procedure LoadPlugin(FileName: String); virtual;
    procedure UnLoadPlugin(index: Integer); virtual;

    function  Getversion:string;
    procedure Setversion(value:String);

    function GetLoadedPlugins:TStrings; virtual;
    function GetPluginCount:Integer;

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property PlugIns [index: Integer]: TkPlugin read GetPlugins;
    property PlugInCount: Integer read GetPluginCount;

  published
    property Version: String read GetVersion write SetVersion;
  end;

Gruß