Skip to content

Commit bdd11a2

Browse files
committed
delphi: Extract data components to a data module
1 parent a40578f commit bdd11a2

6 files changed

Lines changed: 369 additions & 328 deletions

File tree

Delphi/ReportFilter.dpr

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,14 +3,16 @@ program ReportFilter;
33
uses
44
Vcl.Forms,
55
uMainForm in 'uMainForm.pas' {MainForm},
6-
ReportFilter.dxSettings in 'ReportFilter.dxSettings.pas';
6+
ReportFilter.dxSettings in 'ReportFilter.dxSettings.pas',
7+
uData in 'uData.pas' {DataModule1: TDataModule};
78

89
{$R *.res}
910

1011
begin
1112
Application.Initialize;
1213
Application.MainFormOnTaskbar := True;
1314
Application.Title := 'DevExpress Example - Filter Data Records in a Report';
15+
Application.CreateForm(TDataModule1, DataModule1);
1416
Application.CreateForm(TMainForm, MainForm);
1517
Application.Run;
1618
end.

Delphi/ReportFilter.dproj

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -138,6 +138,11 @@ $(PostBuildEvent)]]></PostBuildEvent>
138138
<FormType>dfm</FormType>
139139
</DCCReference>
140140
<DCCReference Include="ReportFilter.dxSettings.pas"/>
141+
<DCCReference Include="uData.pas">
142+
<Form>DataModule1</Form>
143+
<FormType>dfm</FormType>
144+
<DesignClass>TDataModule</DesignClass>
145+
</DCCReference>
141146
<BuildConfiguration Include="Base">
142147
<Key>Base</Key>
143148
</BuildConfiguration>

0 commit comments

Comments
 (0)