Changeset 401
- Timestamp:
- Aug 9, 2012, 9:45:22 AM (12 years ago)
- Files:
-
- 1 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ModularSystem/UModularSystem.pas
r399 r401 37 37 procedure EnumModulesInstall(ModuleList: TStringList); 38 38 procedure EnumModulesUninstall(ModuleList: TStringList); 39 constructor Create ; virtual;39 constructor Create(Owner: TComponent); virtual; 40 40 destructor Destroy; override; 41 41 property Installed: Boolean read FInstalled write SetInstalled; … … 116 116 if Assigned(Module) then begin 117 117 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]]); 119 119 end; 120 120 end; … … 246 246 end; 247 247 248 constructor TModule.Create; 249 begin 248 constructor TModule.Create(Owner: TComponent); 249 begin 250 inherited; 250 251 Dependencies := TStringList.Create; 251 252 Description := TStringList.Create;
Note:
See TracChangeset
for help on using the changeset viewer.