1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 |
- unit Globals;
- interface
- uses OpenProjectManager, SupportUnit, ProjectManagerDm, ReportManager;
- function OpenProjectManager: TOpenProjectManager;
- function SupportManager: TSupportManager;
- function ProjectManager: TProjectManagerData;
- function ReportTemplateManager: TTemplateManager;
- function ReportConfig: TReportConfig;
- function MemoryReportManager: TMemoryReportManager;
- implementation
- var
- _OpenProjectManager: TOpenProjectManager;
- _SupportManager: TSupportManager;
- _ProjectManager: TProjectManagerData;
- _ReportTemplateManager: TTemplateManager;
- _ReportConfig: TReportConfig;
- _MemoryReportManager: TMemoryReportManager;
- function OpenProjectManager: TOpenProjectManager;
- begin
- if not Assigned(_OpenProjectManager) then
- _OpenProjectManager := TOpenProjectManager.Create;
- Result := _OpenProjectManager;
- end;
- function SupportManager: TSupportManager;
- begin
- if not Assigned(_SupportManager) then
- _SupportManager := TSupportManager.Create;
- Result := _SupportManager;
- end;
- function ProjectManager: TProjectManagerData;
- begin
- if not Assigned(_ProjectManager) then
- _ProjectManager := TProjectManagerData.Create;
- Result := _ProjectManager;
- end;
- function ReportTemplateManager: TTemplateManager;
- begin
- if not Assigned(_ReportTemplateManager) then
- _ReportTemplateManager := TTemplateManager.Create;
- Result := _ReportTemplateManager;
- end;
- function ReportConfig: TReportConfig;
- begin
- if not Assigned(_ReportConfig) then
- _ReportConfig := TReportConfig.Create;
- Result := _ReportConfig;
- end;
- function MemoryReportManager: TMemoryReportManager;
- begin
- if not Assigned(_MemoryReportManager) then
- _MemoryReportManager := TMemoryReportManager.Create;
- Result := _MemoryReportManager;
- end;
- initialization
- finalization
- _OpenProjectManager.Free;
- _SupportManager.Free;
- _ProjectManager.Free;
- _ReportTemplateManager.Free;
- _ReportConfig.Free;
- _MemoryReportManager.Free;
- end.
|