-
Notifications
You must be signed in to change notification settings - Fork 1
/
OBD.DataModule.pas
54 lines (44 loc) · 1.55 KB
/
OBD.DataModule.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
//------------------------------------------------------------------------------
// UNIT : OBD.DataModule.pas
// CONTENTS : OBD DataModule
// COMMENTS : This DataModule is used for OBD Projects, and include access
// : to the Application Settings.
// VERSION : 1.0
// TARGET : Embarcadero Delphi 11 or higher
// AUTHOR : Ernst Reidinga (ERDesigns)
// STATUS : Open source under Apache 2.0 library
// COMPATIBILITY : Windows 7, 8/8.1, 10, 11
// RELEASE DATE : 05/04/2024
//------------------------------------------------------------------------------
unit OBD.DataModule;
interface
uses
System.SysUtils, System.Classes,
OBD.Application.Settings;
type
TOBDDataModule = class(TDataModule)
private
/// <summary>
/// Get application settings singleton instance
/// </summary>
function GetApplicationSettings: TOBDApplicationSettings;
published
/// <summary>
/// Application settings instance
/// </summary>
property ApplicationSettings: TOBDApplicationSettings read GetApplicationSettings;
end;
var
OBDDataModule: TOBDDataModule;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
//------------------------------------------------------------------------------
// GET APPLICATION SETTINGS INSTANCE
//------------------------------------------------------------------------------
function TOBDDataModule.GetApplicationSettings: TOBDApplicationSettings;
begin
// Get the singleton instance
Result := TOBDApplicationSettings.Instance;
end;
end.