Ignore:
Timestamp:
Aug 9, 2012, 9:45:22 AM (12 years ago)
Author:
chronos
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • ModularSystem/UModularSystem.pas

    r399 r401  
    3737    procedure EnumModulesInstall(ModuleList: TStringList);
    3838    procedure EnumModulesUninstall(ModuleList: TStringList);
    39     constructor Create; virtual;
     39    constructor Create(Owner: TComponent); virtual;
    4040    destructor Destroy; override;
    4141    property Installed: Boolean read FInstalled write SetInstalled;
     
    116116    if Assigned(Module) then begin
    117117      if not Module.Installed then Module.Install;
    118     end else raise Exception.CreateFmt(SModuleNotFound, [Module.Identification]);
     118    end else raise Exception.CreateFmt(SModuleNotFound, [Dependencies[I]]);
    119119  end;
    120120end;
     
    246246end;
    247247
    248 constructor TModule.Create;
    249 begin
     248constructor TModule.Create(Owner: TComponent);
     249begin
     250  inherited;
    250251  Dependencies := TStringList.Create;
    251252  Description := TStringList.Create;
Note: See TracChangeset for help on using the changeset viewer.